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SYSTEM RELEASED 
ADDED ADRESSING CHECK 

IMPROVED REPEAT SECTION, CONDITIONS LOGIC 
CORRECTED M t>EG INTREGRITY WGEN MULTIPKEXING 
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0015 
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0029 
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0030 
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0075 
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FQU - 

EQU 

EQU 

EQU 
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EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 
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EQU 
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EQU 
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EQU 
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EQU 

FQU 

EQU 

EQU 

EQU 

EQU 
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CONTROL (II 

STOPXJCONTRQLH) 

EXITISTOPX+1) 

REQINT(EXIT+1) 

FCLRINTIREOINT+1) 

JUMP(REQINT*2) 

GENPAN(JUMPM) 

TYPEOUT(GENRAN+l) 

TTY8ZY(TYPE0UT*1> 

HEXASC(TYPEOUT*2! 

OVRLAY(HEXASC+l) 

RELPOS(OV»LAY«-l> 

MAINLC9ELP0S+1) 

SETMASK(HAINL*53l 

STJP(SETMASKfl) 

LASTVALUCSTJPtl) 

LASTAD(STJP4-2) 

L0LC0RECLASTAD+2) 

L0L1C0R(LDLC0RF*1) 

INF0RM(L0L1C0R+1) 

SMMCNT<INF0RM+13> 

BIT00(SMMCNT<-21) 

RIT0(3IT00) 

BIT1I3IT0*1) 

8IT2{9IT1+1) 

BIT3CBIT2+1) 

BIT*(3IT3*1) 

BIT5(BIT*-H) 

EIT6(BIT5*1> 

BIT7(BIT6*1) 

BTT8(8IT7+1) 

9IT9(9IT8*-1) 

BIT101BIT9+1) 

OIT1KBIT10HI 

BIT12CBIT11+1) 



RETURN SMM CONTROL ADDRESS. 

ALL STOPS ANO ERROR TYPEOUTS 

ENO OF TEST-PASS EXIT 

REQUEST INTERRUPT ADDRESS 

FAKE OLD -CLR INTRPT REQ- SUBRTN 

CHECK SKIPSWITCH FOR PARAM ENTRY 

RANDOM NUMBER GENERATOR 

MESSAGE TYPEOUT ROUTINE 

ROUTINE TO WAIT TTY NOT BUSY. 

HEX TO ASCII CONVERSION 

OVERLAY CALL ROUTINE. 

A/Q RELATIVE POSITION TEST. 

MANUAL INTERRUPT ROUTINE. 

M-REG RESET VALUE 

STOP/JUMP PARAMETER WORD. 

MONITOR AREA LWA+1 

AVAILABLE LOAD CORE FWA. 

BANKQ LAST AOOR 

BANK1 LAST ADDR 

BKO SIZE, MASK SIZE, BUSY SWITCH 

SMM PARAMETER WORD. 

»*♦ CONSTANT TABLE ♦♦♦ 
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0003* 
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00039 

000*0 

000*1 
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000*3 

000** 

000*5 

000*6 

000*7 
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0050 


0078 
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005^ 
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0080 
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EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
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EQU 
EQU 
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EQU 
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BIT13(BIT12*1I 

BIT1MBIT13»1I 

BIT151BITHH-1) 

H0000(BIT15*1I 

HFFFF(H0000«-1I 

H000F<HFFFF*1> 

H00F0CH000F*H 

HOF00(HOOFO*l> 

HF000CH0F00+1I 

H00FF(HF0OO*i» 

HFF00CH0OFF+11 

HFFFOCHFFOOHI 

HOFFFfHFFFO+1! 

HFF0FIH0FFF+1I 

HF0FF(HFF0F*11 

H7FFFCHF0FF+1) 

H7F00«H7FFF*1» 

HQ780(H7F00*1> 

H007F(H078O*ll 

H2020!H007F«-1) 

TSACTV(H2020+6) 

TSFREQ<TSACTV*1) 

CONSKBTTOOI 

SMMPARCSMMCNT) 

SJPARfSTJPI 

RANDOH(GENRAN) 

CONVERT(HEXASC) 

MESSAG<TYPEOUT> 

REQNO(REQINT) 

CLRNOCFCLRINT) 

TEMPLOC(SD«»> 

S(TEMPLOC*9) 

OPrtfl) 



TABLE INDEX TO TEST IN CONTROL, 
TEST, FREQUENCY TABLE 



00050 
00051 
00052 
00053 
0005<f 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
0006<t 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
0007«» 
00075 
00 076 
00077 
00078 
00079 
00080 
000S1 
00082 
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P0000 


1807 
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ENTER1 


0085 


P0001 
3000' 
POO 03 


<f3*»F 
WJ30 

3031 




ALF 


3 t COH001 


0036 


P000«* 


0011 P 


PARAOR 


ADC 


PRMST+5 


0087 


POOO'i 


0938 P 


RETURN 


AOC 


INIT01 


0088 


P0006 


0000 


EQUIP 


NUM 





0089 


P0007 


5805 


ENTER1 


RTJ» 


PRMST 


0090 


P0008 
P0009 


conn 

OOIE P 




LDA 


=XCNT 


0091 


P000A 


68FA 




STA» 


RETURN 


0092 


P0003 


5<t01 




RTJ- 


(CONTROL) 


009<* 






* 






0095 






•PARAMETER ENTR) 


r ROUTINE 



PARAMETER AREA FWA. 

OUMMY CELL FOR LOADER USE. 
PARAMETER ENTRY. 
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00095 
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JMP* 
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0011 P 
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0111 
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P0012 


0044 


PARAM 
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P0013 
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ITERAT 
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D805 


ENDPASS 


RAO* 


0106 


P0015 


C8F8 
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P0016 


5402 




RTJ- 
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P0017 


1803 




JHP* 
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P0018 


0104 




NUM 


0110 


P0019 


0000 


PASSCNT 


NUM 


0111 


P001A 


0A40 


CKRPT 


ENA 


0112 


P0013 


5406 




RTJ- 


0113 


P001G 


1802 




JM°* 
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P0010 


5403 




RTJ- 


0115 


P001E 


C8F3 


CNT 


LDA* 


0116 


paoiF 


A082 




ANO- 


0117 


POO 21 


0FC8 




ALS 


0118 


P0021 


6839 




STA* 


0119 


P0022 


C8EF 




LOA* 


0120 


P0023 


A081 




ANO- 


0121 


P0024 


6805 




STA* 
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P0026 


COOO 
003E P 
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P0027 


6800 
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P002S 


1835 
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P0029 


0000 


FINSEC 
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P002A 


0000 


SAVIR 
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0000 
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NUM 
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0000 
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NUM 
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P0020 


0000 


ENT3 


NUM 


0131 


P0 02F 


0000 


IRTCNT 


NUM 


0133 


P002F 


CODE 


RPTCND 


LDA- 


0134 


POn.30 


1CFA 




JMP* 
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P0031 


onoo 


ENDSEC 


NOP 


0136 


P0032 


0A10 
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ENA 
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5406 
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0139 


P0Q35 


C075 
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P0037 


58 04 
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0A20 




ENA 
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P0039 


5406 
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$0044 

3000 

PASSCNT 

PRMST+2 

(STOPX) 

CKRPT 

$104 



$40 

(JUMP) 

CNT 

(EXIT1 

PARAM 

HFFOO 

8 

SEC 

PARAM 

HOOFF 

FINSEC 

=XFNU 

RETURN 
SAMESEC 



OP 

(ENT1) 



$10 

(JUMPI 

(ENT1) 

BITiO 

(JUMP) 

PRMST 

$20 

(JUMP) 

(ENT2) 
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PARAMETER STOP. 



STOP 10 



(TEST IA> 

STOP AT ENO OF TEST, 

ID 

PASS COUNT. 



REPEAT TEST. 

REPEAT NOT SET, CHECK FREQ CNT. 

BEGIN TEST. 



CURRENT TEST SECTION NUMBER. 



LAST SECTION TO BE TESTEO. 



MUX CONTROL RE-ENTRY ADDRESS, 
ENTER 1ST TEST SECTION. 
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00117 
00118 
00119 
00120 
00121 
00122 

00123 
00124 



LAST TEST SECTION. 00126 

IREG SAVE CELL. 00127 

SECTION. REPEAT CONDITION ENT PT. 00128 
SECTION REITERATION ENTRY PT. 00129 

OPERAND COUNT ♦•♦00130 

INTER-REG TEST PASS COUNT. 00131 



REPEAT CONDITIONS 



REPEAT CONDITIONS 



PARAMETER RE-ENTRY. 
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COFF 
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P003C 


68F0 
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POO 3D 


5«»01 
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P003E 


C8EB 
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60FF 
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P0040 


C8D2 


0151 


POOM 


08E8 


015? 


P0OV2 


98EA 


0153 


PQ0V3 


0111 


015«t 


POOW 


1812 


0155 


P00«t5 


OA50 
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P0046 


90FF 
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P00«t7 


0137 
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poova 


C96A 


0159 


P00«»9 


60OE 
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P004A 


C969 
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P004B 


60DF 


0162 


POOVC 


C968 


0163 


pooun 


60E0 


0164 


POOVE 


1805 


0165 


P004F 


COOO 




P0050 


OODE 


0166 


P0051 


0C03 


0167 


P0052 


5407 


0168 


P0053 


01A0 


0169 


"005i* 
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0170 


P0055 


1CU6 


0172 


£•0056 


8M» 


0173 


P0057 


5402 


017<» 


P0055 


180if 


0175 


P0059 
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0176 


P005A 


0000' 
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P0053 


0000 
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0180 
0181 
01B2 
0183 
018«f 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
019V 
0195 
0196 



P005C 
POO 51) 
P005E 
P005F 
P0060 
P0061 
P0062 
P0063 
P006V 
P0065 
P0066 
P0067 
P0068 
POO 69 
P006A 
P006B 
P006C 
P006Q 



08F0 
C8C9 
0102 
98FA 
0121 
1882 
08V4 
60FF 
6000 
68C7 
CODE 
E8F2 
EA05 
V8C1 
V8C1 
VflEF 
1CBF 
00F8 P 



GENOPS 



OVGEN 



ENOIT 



SECENO 

SEC 

SECRTN 

NEXTSFC 
SAHESEC 



TRMNTE 



QENT2 



SECABB 
SECPTR 



LOA- 
STA» 

RTJ- 
LOA* 
STft- 
LDA* 
RAO* 
SUB* 
SAN 
JMP» 
ENA 
SUB- 
SAM 
LDA* 
STA- 
LOA* 
STA- 
LOA* 
STA- 
JMP* 
LOA 

ENQ 

RTJ- 

SOV 

LOA- 

JMP* 

CLR 

RTJ- 

JMP* 

NUH 
NUH 
NUM 

RAO* 

LBA* 

SAZ 

SUB* 

SAP 

JMP* 

CLR 

STA- 

STA- 

STA» 

LOA- 

LOQ* 

LOQ* 

sTq* 

STQ* 
STQ* 
JMP* 
AOC 
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SAVIR 

ICONTROL1 

SAVIR 

I 

ITERATE 

ENT3 

ENT3 

1 

ENDIT 

$50 

I 

GENOPS-^-1 

C0N1,I 

OP 

CONl+1,1 

OP*l 

C0N1*2,I 

OP+2 

OVGEN 

=XOP 



(GENRANI 



OP 

(ENT2) 

A 
(STOPX) 

NEXTSEC 
J102 

- 


SEC 

FINSEC 

TRMNTE-*-l 

SEC 

1 

ENOPASS 

A 

I 

S 

ENT3 

OP 

SEC 

SECPTR, Q 

ENT1 

ENT2 

SECRTN 

(ENT2! 

IREG 



SAVE INDEX REGISTER 
MULTIPLEX WITH OTHER TESTS. 

RESTORE I 



CK INSTRUCTION ITERATION 

JUMP AFTER LAST, AS PER PARAMS. 

HAVE FIXED OPERANDS BEEN USEO- 

SKIP IF YES. 

NO. LOAD NEXT SET. 






KILL POSSIBLE OVERFLOW. 
REPEAT SECTION HITH NEH OPERAND 
END OF SECTION STOP 



ID 

SECTION 
RTN ADOR 

UPDATE SECTION NUMBER. 

CGUARD AGAINST ZERO PARAM ENTRY) 
COMPARE AGAINST FINAL, 

JUMP IF FINISHED, 1ST THRU LAST. 



SECTION NUMBER INDEXES ADOR TBL. 

SET REPEAT CONDITIONS ENTRY 
SET REPEAT SECTION ENTRY 
SET RTN ADOR FOR END SECT MSG 
GO TO SELECTED SECTION 
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00179 

00180 

00181 

00182 

00183 

00184 

00185 

00186 

00187 

•••00188 

00189 

00190 

•♦•00191 

•••00192 

•••00193 

♦••0019V 

♦••00195 

♦♦♦00196 
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ADC J^P,RTJ,LDA,STA,LDQ.STQ,SAZ,SANtSAP,SAM,SQZ,SGN,SQPtSQM ? ALS 00197 



ABC QL^,APSP,APSN,RSHTP f LLS t LRS,ENA,ENQ,AND»AOO,EOR,AOQ,IMA,INQ 00198 



ADC *AO»SUB,OVNO,MUI,DIV,SPA,SET,CLR,TRA,TRQ,TCA,TCCtfAAQ,EAQ 00199 



AOC LAQ t CAQ,SETM,TRAM,CLRM,TRQM,TCAi,TCQM,AAQM t EAQM,LAQH,CAQH •♦♦00200 
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PO0A4 0605 P 

0201 P00A5 06E2 P ADC TRH,TRB,TCM,TCB , AAM , AAB,E AM,EAB,LAM,L AB,C AM ,CAB 00201 
P00A6 06EO P 
PO0A7 06FB P 
PO0A8 070C P 
POOAJ 071E P 
PO0A4 072C P 
POOAS 0741 P 
POOAC 074F P 
POOAO 075F P 

POOAE 0760 P 

POOAF 0770 P S- 

POOBO 078C P ( , 

0202 P00B1 07A4 P ADO AOR »»»00202 

0203 PO0B2 0000 C0M1 NUM , 0,$FFFF, ,$FF 00203 

P0033 0000 S 

POOB«f FFFF ( 

P00B5 0000 v 

P00B6 OOFF 

0204 P00B7 8000 C0N6 NUM $8000, $CO0O,$AOO 0, $9000, $880 0, $8400, $8200, $8100 , $8080 00204 . 
PO0B3 COOO ■ 
P00B9 AOOO 

POOBA 9000 

P00B3 8300 

P003C BUOO 

P03BD 8200 V^ 

POOBE 8100 

POOBF 8090 

0205 POOCO 8040 NIM $8040, $8020, $801 0,$8008, $8004,$8 002, $8001 00205 r 
P00C1 8020 I 
P00C2 3010 

P01C3 BOOB 

°0QC4 nno*» - ^- 

POOCS 8002 ( 

P00C6 8001 v. 

0206 POOS? 8000 CON? NUM $8000, $4000, $200 0, $1000 , $800 ,$400 , $200 .$100, $80 , $40 00206 

<»ooca «»ooo 

P00C9 2000 
POOCO 1000 
°OQCB 0800 
POOCC 0400 
POOCO 0200 
POOCE 0100 
POOCF 0080 
POODO 0040 

0207 P00O1 0020 NU* $20 ,$10 , 8,4,2, 1, 00207 
PODO?. 0010 
P00O3 0008 
P00O«« 0004 
P00D5 0002 
P00O6 0001 
P00D7 0000 

0208 P00O3 8000 C0N7 NUM $8000, $C00 0,$EOO 0,$F000, $F800 ,$FCOO, $FEO0,$FFOO, $FF80 00208 
P00D9 COOO 

60220200 " . PAGE 6 



o 
o 



COM001 



o 

O 



POODA 


EOOO 


poona 


FOOO 


POQOC 


F800 


P00DO 


FCOO 


POOOE 


FEOO 


P00OF 


FFOO 


P00E0 


FF80 


0209 POOEi 


FFCO 


P00E2 


FFEO 


P00E3 


FFFO 


POOE^ 


FFF3 


P00E5 


FFFC 


P00E6 


FFFE 


P00E7 


FFFF 


0210 P00E3 


FFFF 


0211 P00E9 


2000 


POOEA 


1000 


P0OE3 


0800 


POOEG 


OUOO 


POOE!) 


0200 


POOES 


0100 


POOEF 


0080 


>00F0 


nouo 


P00F1 


0020 


P0OF2 


0010 


P00F3 


0008 


P00F<* 


000*» 


0212 P0OF5 


00 02 


POOFS 


0001 


P00F7 


0000 
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DATEt 10/20/75 



NUM 



$FFC0,SFFE0,SFFF0,JFFF8,SFFFC,$FFFE»$FFFF 



00209 



CON10 



NUM SFFFF 

NUM $2000,$1000«$800,$z»00»3200,S10Q*$80«$<>O t S20,S10«8*<» 



00210 
00211 



NUM 2»lt0 



00212 



60220200 



o 

n 



PAGE 



COM001 



0214 



PA3E 



OATEI 10/20/75 



CHECK REGISTER 3ITS 



♦♦♦♦00214 



L 



f«216 


P00F3 


oaoo 


0217 


P00F9 


0A01 


0218 


POOFA 


6870 


0219 


P0 0F3 


0304 


0220 


POOFC 


0844 


0221 


POOFO 


0101 


0222 


POOFE 


555F 


0223 


POOFF 


D3 78 


0224 


P0100 


0802 


0225 


P0101 


0842 


0226 


P0102 


014? 


0227 


P0103 


0H14 


0228 


P0104 


5859 


0229 


P0105 


0872 


0230 


P0106 


05<+«4 


0231 


P0107 


60FF 


0232 


P0103 


0804 


0233 


P0109 


COFF 


0234 


P010A 


0101 


0235 


P010G 


5852 


0236 


P010C 


0863 


02 37 


P010U 


0304 


0238 


P010F 


580E 


0239 


P010F 


08 68 


0240 


pona 


0844 


0241 


P0111 


0802 


0242 


P0112 


0814 


0243 


P0113 


5809 


0244 


P0114 


0863 


0245 


P0115 


0804 


0246 


P0116 


60 FF 


0247 


P0117 


0844 


0248 


P0118 


COFF 


0249 


P0119 


5803 


0250 


P011A 


1800 




P0119 


FF15 



IPEG 



NOP 





ENA 


1 


sra» 


IREGE7 


SET 


A 


CLR 


A 


SAZ 


1 


RTJ» 


IREGE 


RAO* 


IRFGE7 


SET 


Q 


CLP 


Q 


SQZ 


2 


TRQ 


A 


RTJ» 


IREGE 


RAO* 


IREGF7 


CLR 


A 


STA- 


I 


SFT 


A 


LHA- 


I 


SA* 


1 


RTJ* 


IREGE 


PAO* 


IREGF7 


SET 


A 


RTJ* 


IRFGA 


RAO* 


IREGE7 


CLR 


A 


SET 





TRQ 


A ' 


RTJ* 


IREGA 


PAO* 


IPEGE7 


SET 


A 


STA- 


I 


CLR 


A 


LOA- 


I 


RTJ* 


IRFGA 


JMP 


ENDSEC 



SET ERROR CODE 



A REG WOULD NOT CLEAR 
UPDATE ERROR CODE 



Q REG WOULD NOT CLEAR 
UPDATE RRROR COUNTER 

ZERO ALL I REGISTER BITS 

COPY I REGISTER TO A REGISTER 

COULO NOT CLEAR ALL I REG BITS 
UPDATE ERROR CODE 

CK A REG BITS TO SET 
UPO+TE ERROR COUNT 



CK Q. REG BITS TO SET 
UPDATE ERROR COUNT 

SET ALL I REGISTER BITS 



CK I REG BITS TO SET 
SECTION COMPLETE 



♦♦♦00216 
•♦♦00217 
♦♦♦00218 
♦♦♦00219 
♦♦♦00220 
♦♦•00221 
♦♦♦00222 
♦•♦00223 
♦♦♦00224 
♦♦♦00225 
♦♦♦00226 
♦♦♦00227 
♦♦♦00228 
♦♦♦00229 
♦♦♦00230 
♦♦•00231 
♦♦•00232 
♦♦♦00233 
♦♦♦00234 
♦♦♦00235 
♦♦•00236 
•♦♦00237 
♦♦♦00238 
♦♦♦00239 
♦♦♦00240 
♦••00241 
♦••00242 
♦♦♦00243 
♦♦♦00244 
♦♦♦00245 
♦♦•00246 
♦♦•00247 
♦♦♦00248 
♦♦♦00249 
♦♦♦00250 



0252 P011C ODOO 

0253 POUD OCOF 

0254 P011E 0131 

0255 P011F 5B3E 

0256 P0120 ODFE 

0257 P0121 0FC1 

0258 P0122 0131 

0259 P0123 583A 



IPEGA 



NOP 





EN1 


15 


SAM 


1 


RTJ* 


IREGE 


INQ 


-1 


ALS 


1 


SAM 


1 


RTJ* 


IREGE 



CK REG BIT TO BE SET 



BIT 15 OID NOT SET 



BIT 14 OID NOT SET 



♦♦♦00252 
♦♦♦00253 
♦♦♦00254 
♦♦♦00255 
♦♦•00256 
♦♦♦00257 
♦♦♦00258 
♦♦♦00259 



c 



60220200 



PAGE 



o 



o 
o 
o 



J 



/"" 





COM001 


0260 


P0124 


09FF 


0261 


P0125 


0FC1 


0262 


P0125 


0131 


0263 


P0127 


5836 


026*» 


P0128 


OOFE 


0265 


P0129 


0FC1 


0266 


P012A 


0131 


0267 


P0123 


5832 


0268 


P012C 


OOFE 


0269 


P012O 


0FC1 


0270 


P012E 


0131 


0271 


P012F 


532E 


0272 


P0130 


OOFE 


0273 


HO 131 


0FC1 


027«t 


P0132 


0131 


0275 


P0135 


582A 


0276 


P013'» 


OOFE 


0277 


P0135 


0FC1 


0278 


P0136 


0131 


0279 


P0137 


5326 


0280 


00133 


OOFE 


0281 


P0139 


0FC1 


0282 


P013A 


0131 


0283 


P0133 


5822 


023** 


P013C 


OOFE 


0235 


P013O 


0FC1 


0236 


P013E 


0131 


0287 


P013F 


581E 


0288 


POl^O 


OOFE 


0239 


POIM 


0FC1 


0290 


P01«f2 


0131 


0291 


POUtJ 


531A 


0292 


P01«»<» 


OOFE 


0293 


P01tf3 


0FC1 


029^ 


P01«*6 


0131 


0295 


t>0Hf7 


5316 


0296 


P01M 


OOFE 


0297 


P01<»9 


0FC1 


0298 


P01«*A 


0131 


0299 


P01«»3 


5312 


0300 


°01*»C 


OOFE 


0301 


P01<tO 


0FC1 


0302 


P01<»E 


0131 


0303 


P01«»F 


580E 


030<» 


P015Q 


OOFE 


0305 


P0151 


0FC1 


0306 


P0152 


0131 


0307 


P0153 


580A 


0308 


P015<» 


OOFE 


0309 


P0155 


0FC1 


0310 


"0156 


0131 


0311 


P0157 


5806 


0312 


P0153 


OOFE 



PAGE 



INQ 


-1 


ALS j 




SAM 1 




RTJ* ] 


:rege 


INQ 


-l 


ALS J 




SAM j 




RTJ* ] 


:rege 


INQ 


•1 


ALS 1 




SAM J 




RTJ* ] 


[REGE 


INQ 


-1 


ALS j 




SAM ] 




PTJ* ] 


:regf 


INQ 


-l 


ALS J 




SAM J 




P.TJ» ] 


[REGE 


INQ 


-1 


ALS i 




SAM j 




9TJ* ] 


[REGE 


INQ 


■1 


ALS j 




SAM J 




OTJ* 1 


[REGE 


INQ 


•1 


ALS 1 




SAM 1 




PI" J* ] 


r REGF 


INQ 


-1 "*. 


ALS 1 




SAM j 




RTJ* ] 


REGE 


INQ 


■t 


ALS 1 




SAM 1 




P.T J* ] 


[RFGE 


INQ 


•1 


ALS 1 




SAM J 




RTJ* ] 


REGF 


INQ 


■1 


ALS 1 




SAM J 




RTJ* ] 


:rege 


INQ 


•i 


ALS 1 




SAM 1 




PTJ* ] 


[REGE 


INQ 


•1 



DATE: 10/20/75 



BIT 13 010 NOT SET 



BIT 12 010 NOT SET 



BIT 11 010 NOT SET 



BIT 10 010 NOT SET 



BIT 9 010 NOT SET 



BIT 8 010 NOT SET 



BIT 7 DID NOT SET 



BIT 6 010 NOT SET 



BIT 5 010 NOT SET 



BIT i* DID NOT SET 



BIT 3 010 NOT SET 



BIT 2 010 NOT SET 



BIT 1 DIO NOT SET 



♦♦•00 260 
♦♦♦00261 
♦♦♦00262 
♦♦♦00263 
♦♦♦0026<» 
♦♦♦00265 
♦♦♦00266 
♦♦♦00267 
♦♦♦00268 
♦♦♦00269 
♦♦♦00270 
♦♦♦00271 
♦♦♦00272 
♦♦♦00273 
♦♦♦0027«» 
♦♦♦00275 
♦♦♦00276 
♦♦♦00277 
♦♦♦00278 
♦♦♦00279 
♦♦♦00280 
♦♦♦00281 
♦♦♦00282 
♦♦♦00283 
♦♦♦0028'* 
♦♦•00285 
♦•♦00286 
♦♦♦00287 
♦♦♦00288 
♦♦♦00289 
♦♦♦00290 
♦♦♦00 291 
♦♦♦00292 
♦♦♦00293 
♦♦♦0029*1 
♦♦♦00295 
♦♦•00296 
♦♦♦00297 
♦♦♦00298 
♦♦♦00299 
♦♦♦00300 
♦♦♦00301 
♦♦♦00302 
♦♦♦00303 
♦•♦0030<f 
♦♦♦00305 
♦♦♦00306 
♦♦♦00307 
♦♦♦00308 
♦♦♦00309 
♦♦♦00310 
♦♦♦00311 
♦♦♦00312 



60220200 



PAGE 



COM001 



PAGE 10 



DATE! 10/20/75 



0313 P0159 0FC1 

031i» P015A 0131 

0315 P0153 5302 

0316 P015C 1C3F 



ALS 


1 




SAM 


1 


- 


RTJ» 


IREGE 


BIT DID NOT SET 


JMP» 


(IREGA) 


RETURN 



•••00313 
♦♦♦0031«» 
♦♦•00315 
♦♦♦00316 



0318 


P0150 


0000 


I?EGE 


NUM 


0319 


P015E 


6817 




STA* 


0320 


P015P 


^817 




ST1* 


0321 


P0160 


08M» 




CL* 


0322 


P0161 


8816 




AGO* 


323 


P0162 


68 OF 




STA» 


32*» 


P0163 


C31«* 




LDA» 


0325 


P016t* 


09FB 




INA 


0326 


P0165 


0123 




SAP 


0327 


P0166 


C30F 




LHA» 


032R 


P0167 


680C 




STA» 


03?9 


P0168 


18 3 




JMP» 


0330 


P0169 


C26D 




LOA- 


0331 


P016A 


6809 




STA* 


0332 


P0163 


C8F1 




LHA* 


0333 


P016C 


6806 




STA» 


933*» 


P016O 


08*»«» 




CLR 


0335 


P016E 


5**02 




RTJ- 


0336 


P016F 


1*09 




JMP» 


0337 


P0170 


1C18 




NUM 


338 


P0171 


0000 


IREGC1 


NUM 


0339 


P0172 


0000 


IREG'2 


NUM 


031*0 


^0173 


COOO 


IRFGES 


NU* 


03^1 


P017^ 


0000 




NUM 


03<*2 


P0175 


0000 


IPEGEtf 


NUM 


03^3 


P0176 


on oo 


IREGE5 


NUM 


Q3ki* 


P0177 


0003 


IREGE7 


NUM 


03*t5 


P0178 


C8FC 


IRERE6 


LOA» 


03i»6 


PQ179 


E8FG 




LDQ» 


03*f7 


P017A 


1CE2 




JM°* 



IREGF«» 

TREGE5 

A 

TREGE7 

IREGE1 

IREGE7 

-k 

3 

TREGFU 

IREGE3 

*+3 

BIT0,Q 

IREGE3 

IREGE 

IRFGE2 

A 

(STOPX) 

IREGF6 

S1C18 











~ 



IREGFU 

IREGE5 

(IREGE) 



SAVE REGISTERS 

OK SINCE THIS IS SECTION 

FORM SSEE 



SKIP IF ERROR CODE 1,20R3 
SETUP IF ERROR CODE *»,50R6 



GET FAILING 3IT 



SET RTN AODR 



SSEE 

RETUNN ADDRESS 

FAILING 3IT 

SAVE A 
SAVE Q 

RESTORE REGISTERS 



•♦♦00318 
•••00319 
•••00320 
•••00321 
•♦♦00322 
♦♦♦00323 
♦••0032«» 
•••00325 
•♦♦00326 
♦♦♦00327 
••♦00328 
♦•♦00329 
♦••00330 
♦••00331 
••♦00332 
♦♦♦00333 
♦♦♦00 33*» 
♦♦•00335 
♦♦♦00336 
•••00337 
♦••00338 
•••00339 
♦♦♦003%0 
♦••003M 
♦••003«»2 
••»003«»3 
••♦OOS^ 
♦♦•003l»5 
•»*003«»6 
•♦♦003^7 



60220200 
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r 



c 



C ) 



\ J 



(' ! 



(j 

o 



COM001 



PASF 11 



OATEt 10/20/75 



0349 



******** SECTION 1-JUMP ******** 



00349 



0351 


P017Q 


COOO 




PQ'170 


0108 


0352 


P0170 


1803 


0353 


P017E 


0000 


035V 


P017F 


0000 


0355 


"0180 


1807 


0356 


P0181 


3000 


0357 


P0182 


0000 


358 


P0183 


1806 


0359 


P0184 


0C0<* 


0360 


P0185 


0000 


0361 


P0186 


0000 


036? 


P0187 


13 FB 


0363 


P0188 


0000 


036i» 


P0189 


1C39 



JMf 



JMP2 



JMP4 



JMP3 



JMP5 



LOA 


=N*108 


JMP* 


JMP2 


SLS 




SLS 




JMP* 


JMP3 


SLS 




SLS 




JMP* 


JMP5 


ENQ 


4 


SLS 




SLS 




JMP* 


JMP4 


SLS 




JMP* 


(EMD1) 



00 351 

00 352 
00353 
00 354 
00355 
00356 
00357 
O0358 
00359 
00360 
00361 
00362 
00363 
00364 



366 



******** SECTION 2-RETUPN JUMP ******** 



00366 



o 



,y 






0368 


P018A 


■5102 


RTJ 


RTJ* 


RTJ*» 


0369 


P0183 


1812 




JMP* 


RTJ3 


0370 


P018C 


0000 


RTJJ* 


NUM 





0371 


P0189 

°018E 


cnoo 

318R P 




LOA 


=XRTJ*1 


0372 


P018P 


680F 




STA* 


SAV 


0373 


P0190 


08F9 




LOA* 


RTJit 


037** 


P0191 


B800 




EOP* 


SAV' 


0375 


P0192 


0103 




SAZ 


PTJ5-*-l 


0376 


°0193 


C8F8 




LOA* 


PTJl» 


0377 


poi9<» 


980A 




SU9* 


SAV 


0378 


P0195 


0111 




SAN 


PTJ7-*-l 


0379 


P0196 


1CF5 


RTJ5 


JMP* 


CRTJ4I 


0380 


P0197 


C8F6 


RTJ7 


LOA* 


RTJ<f*2 ( = XRTJ1+1) 


0381 


P0193 


6C20 




STA* 


(ST11I 


0382 


PQ199 


C8F2 




LOA* 


PTJV 


0383 


P019A 


6C2A 




STA* 


(ST10I 


033U 


P0193 


0C11 




ENQ 


til 


0385 


P019C 


ooon 




SLS 





0336 


P0199 


1C25 


RTJ3 


JM°* 


(ENOl) 


0387 


P019E 


0000 


SAV 


NUM 






Q=XY,X=FRROR NUHBER,Y=NUM9ER OF 



00368 
00369 
00370 
00 371 

00372 
00373 
00374 
00 375 
00376 
00377 
00378 
00379 
00350 
00 381 
00382 
00383 
00384 
00385 
00386 
00387 



38 9 



******** SECTION 3-LOAO A ******** 



00389 



0391 P019F 6C26 

0392 POlAil EOOE 



LOA 



STA* 
LOQ- 



CST11) 

OP 



OPERAND - IN A, 



00391 
00392 



6022020H 



PAGE 11 



v.- 



COM001 



0393 P01A1 4C23 

0394 P01A2 0822 

0395 P01A3 BODE 

0396 P01A<* 0105 

0397 P01A5 0814 

0398 P01A& 900E 

0399 P01A7 0102 

0400 P01A3 0C11 
01*01 P01A9 5C1A 
0402 P01AA 1C18 



loa2 



PAGE 


12 




STQ* 


<ST10I 




TRA 


Q 




EOR- 


OP 




SAZ 


LDA2-»- 


•1 


TRQ 


A 




SUB- 


OP 




SAZ 


L0A2-»- 


-1 


ENQ 


$11 




RTJ» 


CSTP1) 




JMP* 


CEND1I 





DATE! 10/20/75 



A TO q- 



Q TO A 



Q=XV,X=ERROR NUMBER, Y=NUM8ER OF 



00393 
0039ft 
00395 
00396 
00397 
00398 
00399 
00400 
00401 
00402 



0404 



*"**♦*♦ SECTION 4-STORE A ♦♦»»»♦♦* 



00404 



0406 P01A3 6C1A STA 

0407 P01AC EOOE 

0408 P01AO 4C17 
01*09 POIA^ BC17 
01*10 P01AF 0105 
01*11 P01B0 CODE 
01*12 P01B1 9C1«* 
0i»13 P0192 01C2 
01*11* P0135 0C11 
01*15 P0184 5C0F 

01*16 P01B5 1C0D STA2 



STA» 


(ST11I 




LDQ- 


OP 




STO* 


<ST10I 




EOR» 


(ST11) 




SAZ 


STA2-»- 


-1 


LOA- 


OP 




SUB* 


(ST11) 




SAZ 


STA2-»- 


-1 


ENQ 


$11 




RTJ* 


(STP11 




JMP* 


(END11 





OPERANO IN A. 

A=STORE+l 

A=STORE*l 

Q=XY,X=ERROR NUMBER »Y=NUMBER OF 



00406 
00<*O7 
00408 
00409 
00410 
00411 
00412 
00413 
00414 
00415 
00416 



0418 



******** SECTION 5-LOAD Q »*****♦* 



00418 



0420 P01B6 EOOE LDQ 

0421 P01B7 6C0O 

0422 P01B8 4CQD 

0423 P0189 0814 

0424 P01BA BODE 

0425 PQ130 0105 

0426 P01BC 0814 

0427 P01BO 90DE 

0428 P01BE 0102 

0429 P013F 0C11 

0430 P01C0 5C03 

0411 3Q1C1 1C01 LPQ? 



0433 P01C2 0031 P ENOl 

0434 P01C3 091C P STP1 

0435 P01C4 093B P ST10 

0436 P01C5 093C P ST11 



LDQ- 


OP 


STA* 


(ST10) 


ST3» 


(ST11I 


TRQ 


A 


EOR- 


OP 


SA7 


L0Q2-»-t 


TRQ 


A 


SUB- 


OP 


SAZ 


LDQ2-*-l 


ENQ 


$11 


RTJ* 


(STP1) 


JMP» 


(ENOU 


AOC 


FNDSEC 


ADC 


STOP 


AOC 


SCORE 


ADC 


STORE«-l 



OPERAND, IN A. 



Q TO A = OPERAND 



Q TO A = OPERANO 

Q=XY,X=ERROR NUMBER,Y=NUMBER OF 



00420 
00421 
00422 
00 423 
00424 
00425 
00426 
00427 
00428 
00429 
00430 
00431 



00433 
00434 
00435 
00436 



6022020C 
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c 



c 



( ) 



o 



COM001 



PAGE 13 



DATE! 10/20/75 



0437 P01C6 002B P ST12 



AOC 



ENT1 



•••00*37 



o 



0439 



Qi*i*l P01C7 EOOE STQ 
0442 P01C8 6CF9 
0*»43 P01C9 4CF3 
0444 P01CA BCFA 
Ot*i*S P01C3 0105 
C*46 P01CC COOF 
01.47 P01CD 9CF7 

0448 P01CE 0102 

0449 P01CF 0C11 

0450 P01O0 5CF2 

0451 P0101 1CF0 STQ2 



SECTION 


6-STORE ( 






LOQ- 


OP 




OP IN A. 


STA» 


CST10) 






STQ» 


(ST11I 






£0R* 


CST11) 




A=STOREfl 


SA2 


STQ2-»- 


-1 




LOA- 


OP+l 






sub» 


<ST1U 




A=ST0RE+1 


SAZ 


STQ2-»- 


■1 




ENQ 


Sll 




Q=XY,X=ER 


RTJ* 


(STP1) 






JMP» 


(EN01I 







00439 



00441 
00442 
00443 
00444 
00445 
00446 
00447 
00448 
00449 
00450 
00451 



0453 



******** SECTION 7-SKIP IF A=0*»»»»«» 



00453 



o 



0455 


P0 1D2 


OAOO 


SAZ 


ENA 





0«»56 


P01O3 


0102 




SAZ 


SAZ2A-»-l 


0457 


P01D4 


0C10 




EN1 


210 


0<»58 


P01O5 


5CE0 




RTJ» 


(STP1» 


0459 


poids 

P01D7 


COOO 
0109 P 


SAZ2A 


LOA 


=XSAZ5 


C60 


P0198 


6CE0 




STA» 


<ST12) 


0461 


P0109 


OAFF 


SAZ5 


ENA 


-0 


0462 


P01DA 


0101 




SAZ 


SAZ3-*-l 


0463 


paion 


1803 




JMP» 


SAZ4A 


01.64 


P01DC 


0C23 


SA73 


ENQ 


J20 


0465 


poino 


5CE5 




RTJ» 


CSTP1) 


0466 


P01OE 
P010F 


COOO 
01OE P 


SAZ«»4 


LOA 


=XSAZ4A 


0467 


P01E0 


6CE5 




STA* 


(ST12) 


0468 


P01E1 


0A10 




ENA 


$10 


0469 


P01E2 


5406 




RTJ- 


(JUMP) 


0470 


P01E3 


18F5 




JMP* 


SAZ5 


0471 


P01E4 


COHE 


SAZ7 


LOA- 


OP 


0*»72 


P01E5 


EOOE 




LD3- 


OP 


0^73 


P01E6 


6CDD 




STA* 


<ST10> 


0474 


P01E7 


6non 




STA* 


(ST11I 


0475 


P01E3 


0101 




SAZ 


SAZ6-»-l 


0U76 


P01E9 


1802 




JMP* 


SAZ7A 


0477 


P01EA 


1806 


SAZ6 


JMP* 


SAZ7B 


0478 


P01E1 


0141 


SAZ7A 


so.z 


SAZ7C-»-l 


0479 


P01EC 


1807 




JMP» 


SAZ8 



SKIP SHOULD OCCUR 

Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



A=-0 

SKIP SHOULD NOT OCCUR 

Q=XY,X=ERROR NUMBER, Y=NUM8ER OF 



SET RPT CONDITIONS POINTER 



TO REPEAT CONDITIONS 



00455 
00456 
00457 
00458 
♦♦•00459 

•••00460 
00461 
00462 
00463 
00464 
00465 

•••00466 

•••00467 
•••00468 
00469 
00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00478 
00479 



60220200 



PAGE 13 



V... 



COMQ01 



0480 P01EO OC31 SAZ7C 

01*81 PH1EE 5C04 

0482 P01EF 1804 

0«i83 POl^O 01^2 SAZ79 

0«»B4 P01F1 OCM 

0435 P01F2 5CO0 

Qt»B6 P01FS 1CCE SAZ8 



PAGE 


14 




ENQ 




S31 


RTJ^ 




CSTP1) 


JHP* 




SAZ8 


sqz 




SAZ8-^-l 


ENQ 




$«»1 


RTJ» 




(STP11 


JMP» 




CEND1I 



DATE* 10/20/75 



Q=XY,X=ERROR NUMBER ,Y=NUM BE R OF 00d80 

00481 
00482 
00483 

Q=XY,X=ERROR NUMBER ,Y=NUMBER OF 00484 

00485 
TO ENO OF SECTION •♦♦00486 



0488 



******** SECTION 8-SKIP IF A NOT =0 ******** 



00488 



0it90 


P01F4 


OAFF 


SAN 


ENA 


-0 


0^91 


P01F5 


0112 




SAN 


SAN2-^-l 


0492 


P01F6 


0C10 




ENQ 


$10 


0«»93 


P01F7 


5CCB 




PTJ» 


(STP1) 


0«*9«» 


P01F8 
P01F9 


coon 

01F3 P 


SAN2 


LOA 


=XSAN*» 


0*»95 


P01FA 


6CCB 




STA^ 


CST12) 


0496 


POlFf] 


OAOO 


SANi, 


EN A 





0<«97 


P01FC 


0111 




SAN 


SAN5-^-i 


0498 


P01FO 


1303 




JMP^ 


SAN6 


0«*99 


P01FC 


0C20 


SAN5 


ENQ 


S20 


0500 


P01FF 


5CC3 




RTJ» 


(STP1) 


0501 


P0200 
P0201 


COOO 
0203 P 


SAN6 


LOA 


=XSAN7 


0502 


P0202 


6CC3 




STA» 


(ST12> 


0503 


P0203 


CODE 


SAN7 


LOA- 


OP 


050<» 


P020<* 


G<*3F 




STA* 


(ST10) 


0505 


P0205 


0113 




SAN 


SAN8-^-i 


0506 


P0206 


0106 




SAZ 


SANENO-»-l 


0507 


P0207 


0C31 




ENQ 


Ml 


0508 


P0203 


5C3E 




PTJ* 


(STP2I 


0509 


P020T 


0101 


SflN3 


SAZ 


SAN10-*-l 


0510 


P020A 


18 3 




JMP* 


SANENO 


0511 


P020P1 


OCM 


SCN10 


ENQ 


$«»1 


0512 


P020C 


5C3A 




PTJ^ 


(STP2) 


0513 


P0203 


1C38 


SANEMD 


JMP* 


(END2) 



00490 

00*191 

Q=XY»X*ERROR NUMBER ,Y=NUMBER OF 00«i92 

00 493 
♦♦♦00494 



SET RPT CONDITIONS PTR 




♦♦♦00495 


A = 




00496 


SKIP SHOULD NOT OCCUR 




00497 
00498 


Q=XY,X=ERROR NUMBER, Y=NUMBER 


OF 


00499 

00500 

♦♦♦00501 

♦♦♦00502 
00503 
00504 
00505 
00506 


Q=XY,X=ERROR NUMBER, Y=NUMBER 


OF 


00507 
00508 
00509 
00510 


Q=XY,X=ERROR NUMBER, Y=NUMBER 


OF 


00511 
00512 


TO END OF SECT 




♦♦♦00513 



r 



0515 



******** SECTION 9-SKIP IF A POSITIVE ******** 



00515 



0517 


P020E 


6C39 


SAP 


STA* 


(ST201 


0518 


P020F 


0126 




SAP 


SAPll-*-l 


0519 


P0210 


086U 




TCA 


A 


0520 


P0211 


6C37 




STA* 


(ST21I 


0521 


P0212 


0122 




SAP 


SAP9-»-l 


0522 


P0213 


0C11 




ENQ 


$11 


0523 


P021<+ 


5C32 




RTJ» 


CSTP2I 


052«f 


r>0215 


180B 


SAP9 


JHP^ 


APEND 


0525 


P0216 
P0217 


F000 
0216 P 


SAPU 


LOQ 


=XSAP11 



OP IN A. 



COMPLEMENT 



SHOULO SKIP 

Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



00517 
00518 
00519 
00520 
00521 
00522 
00523 
00524 
♦♦♦00525 



r 



60220200 



PAGE 1<» 



,r 



O 



r^ 





COHOOi 




PAGE 


15 


0526 


P0218 4CAQ 




STQ» 


(ST12) 


0527 


P0219 0864 




TCA 


A 


0528 


P021A 6C2E 




ST A* 


(ST21I 


0529 


P0213 0121 




SAP 


1 


0530 


P021C 1804 




JMP» 


APENO 


0531 


P0210 0C21 




ENQ 


$21 


0532 


P021E 5C28 




RTJ* 


CSTP2) 


0533 


P021F 18F5 


SAP12 


JMP* 


SftP9 


053<» 


P022Q 1C25 


APEN3 


JMP* 


(EN021 



DATE! 10/20/75 



SET RPT CONDT PTR 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



•••00526 
♦••00527 
00528 
00529 
00530 
00531 
00532 
00533 
00534 



o 



0536 



******** SECTION A-SKIP IF A NEGATIVE ******** 



00536 



0518 


P0221 


SC26 


SAM 


STA* 


(ST201 


539 


P0222 


0134 




SAM 


SAM2-*-l 


0540 


P0223 


0122 




SA° 


SAM3A-»-l 


0541 


P022!» 


0C11 




ENQ 


$11 


0542 


P0225 


5C21 




RTJ* 


(STP2) 


0543 


P0226 


1805 


SAM3A 


JMP* 


SAM3 


0544 


P0227 


0121 


SAM2 


SAP 


SAM4-»-l 


0545 


P0228 


1803 




JMP» 


SAM3 


0546 


P0?29 


0C21 


SAM4 


ENQ 


$21 


0547 


PQ22A 


5C1C 




RTJ* 


(STP21 


0548 


P022'3 


1C1A 


SAM3 


JMP* 


(END2) 



OP IN A. 



Q=XY,X=ERROR NUMBER, Y=NUHBER OF 



Q=XY,X=ERROR NUMBER, Y=NUM3ER OF 



00538 
00539 
00540 
00541 
00542 
00543 
00 544 
00545 
00546 
00547 
00548 



60220200 E 
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o 



V. 



COM001 



PAGE 16 



HATE! 10/20/75 



0550 



***»♦»** SECTION 8-SKIP IF Q=*0 ******** 



00550 



0552 


P022C 


EOOE 


SQZ 


LOQ- 


0553 


P0220 


4C1A 




STQ* 


0554 


P022E 


0145 




SQZ 


0555 


P022F 


0101 




SAZ 


0556 


P0230- 


1808 




JMP* 


0557 


P02S1 


0C11 




ENQ 


0558 


P0232 


5C14 




RTJ» 


0559 


P0233 


tans 


SQZ3 


JMP* 


0560 


P0234 


0103 


SQZ2A 


SAZ 


0561 


P0235 


0C21 




ENQ 


056? 


P0236 


5C10 




p.rj» 


0563 


P0237 


18F3 




JMP* 


0564 


P0238 


1C0O 


^NDSQZ 


JMP» 



OP 

(ST20I 

SQZ2A-»-l 

1 

ENDSQZ 

$11 

(STP2) 

ENOSOZ 

ENOSQZ-*-l 

$21 

(STP2) 

SQZ3 

(END2I 



OP IN A. 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



Q=XY t X=ERROR NUMBER ,V=NUHBER OF 



00552 
00553 
00 554 
00555 
00556 
00557 
00558 
00559 
00560 
00561 
00562 
00563 
0056<» 



0566 



******** SECTION C-SKIP IF Q NON-ZERO ******** 



00566 



0568 


P0239 


EOOE 




SON 


LDQ- 


OP 


0569 


P023A 


4C 00 






STO» 


<ST20> 


0570 


P0233 


0155 






SQM 


SQN2A-»-l 


0571 


P023C 


0111 






SAN 


1 


0572 


P023O 


1807 






JMP* 


FNOSN 


05?3 


P023E 


0C11 






ENQ 


$11 


057** 


P021F 


5C07 






RTJ» 


CSTP2) 


0575 


P0240 


1804 




SQN3 


JMP» 


ENOSN 


0576 


P0241 


0112 




S0N2A 


SAN 


ENOSN-*-l 


0577 


P0242 


0C21 






ENQ 


$21' 


0578 


P0243 


5C03 






RTJ* 


CSTP2! 


0579 


P0244 


1C01 




ENPSN 


JMP* 


(END2) 


0581 


P0245 


31 


P 


EN02 


AOC 


ENDSEC 


0582 


P024S 


0910 


P 


STP? 


AOC 


STOP 


0583 


P0247 


0938 


P 


ST20 


AOO 


STORE 


0584 


P0248 


093C 


P 


ST21 


AOC 


STOREH 



OP IN A. 



Q=XY,X=ERROR NUMBER,Y=NUMBER OF 



Q=XY,X=ERROR NUMBER »Y=NUMBER OF 



00568 
00569 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 
00578 
00579 



00581 
00582 
00583 
00 584 



c 



60220200 E 
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( 



COM001 



PAGE 17 



OATEI 10/20/75 



f~\ 



0586 



******** SECTION O-SKIP IF Q POSITIVE »' 



00586 



C) 



0588 P02%9 


086«i 


SQP 


TCA 


A 


0589 P02%A 


EOOE 




LOQ- 


OP 


0590 P02%B 


%CF3 




stq* 


CST201 


0591 P02%C 


0165 




SQP 


SQP2A-»-l 


0592 P02%0 


0131 




SAM 


1 


0593 P02%E 


18 07 




JMP* 


ENDSP 


059% P02%F 


0C11 




ENQ 


Sll 


0595 P0250 


5CF5 




RTJ» 


CSTP21 


0596 P0251 


180% 


SQP3 


JMP» 


ENDSP 


0597 P0252 


0132 


SQP2A 


SAM 


ENOSP-»-l 


0598 P0253 


0C21 




ENQ 


521 


0599 P025% 


5CF1 




RTJ» 


(STP21 


0600 P0255 


1CEF 


ENDSP 


JMP* 


(EN02) 



OP IN A. 



Q=XY,X=ERROR NUMBER, Y=NUH9ER OF 



Q=XY,X=ERROR NUMBER, V=NUNBER OF 



00588 
00589 
00590 
00591 
00592 
00593 
00 59% 
00595 
00596 
00597 
00598 
00599 
00600 



0602 



******** SECTION E-SKIP IF Q NEGATIVE 



00602 



( ^i 



060** P0256 


0S6<» 


SQM 


TCA 


A 


0605 P0257 


EOOE 




LOQ- 


OP 


0606 P0258 


%CEE 




STQ» 


(ST20) 


0607 PQ259 


0175 




SQM 


SQM2A-»-l 


0608 P025A 


0121 




SAP 


1 


0609 P0253 


1807 




JMP» 


ENOSM 


0610 P025C 


0C11 




ENQ 


$11 


0611 P0250 


5CE8 




RTJ* 


(STP21 


0612 P025F 


180% 


SQM 3 


JMP» 


ENOSM 


0613 P025F 


0122 


SQM2A 


SAP 


ENDSM-*-l 


061*f P0260 


0C21 




ENQ 


S21 


0615 P0261 


5CE«» 




RTJ» 


CSTP2I 


0616 P0262 


1CE2 


ENOSM 


JMP* 


<END2> 



OP IN A. 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



0060% 
00605 
00606 
00607 
00608 
09609 
00610 
00611 
00612 
00613 
0061% 
00615 
00616 



f\ 



0618 



******** SECTION F-A LEFT SHIFT ******** 



00618 



u 



0620 


P0263 


0AF1 


0621 


P026<* 


6000 


0622 


00265 


01A0 


0623 


P0266 


COOO 




P0267 


0FC1 


062«» 


P0268 


6810 


0625 


P0269 


CODE 


0626 


P026A 


6C0C 


0627 


P0268 


580C 


0628 


P026C 


0FC7 


0629 


P0261 


nooo 


0630 


P026E 


6CD9 



ALS 



ENA 


-SE 


STA- 


S 


SOV 





LOA 


=N$FC1 


STA» 


SH2 


LOA- 


OP 


STA» 


(ST20I 


RTJ» 


SHA 


ALS . 


7 


NOP 





STA* 


CST21) 



CLEAR OVERFLOW FAULT 



00620 
00621 
00622 
00623 

0062% 
00625 
00626 
00627 
00628 
00629 
00630 



60220200 E 



PAGE 17 



coMoai 



G631 P026F BC07 

0632 P0270 0105 

0633 P0271 CCD6 

0634 P0272 9C04 

0635 P0273 0102 

0636 P0274 0C11 

0637 P0275 5CO0 

0638 P0276 1CCE 



ENDAL 



PAGE 


18 


EOR* 


(ST20I 


SAZ 


ENOAL-*-l 


LDA» 


CST21) 


SUB* 


(ST20I 


SAZ- 


ENnAL-»-l 


ENQ 


$11 


RTJ* 


(STP2) 


JMP» 


CEND2) 



DATEJ 10/20/75 



Q=XY,X=ERROR NUMBER, Y=NUNBER OF 



00631 
00632 
00633 
00634 
00635 
00636 
00637 
00638 



0640 
0641 
0642 

0643 P0277 0001 

0644 P0278 0FC1 
06«f5 P0279 DOOH 
0646 P027A EOno 
06<»7 P027H 01t»2 
061*8 P027C 08F9 

0649 P02711 18FA 

0650 P027E 01B2 

0651 P027F 0C21 

0652 P0280 18F«f 

0653 P0281 1CF5 



SHIFT A LEFT AND CHECK FOR OVERFLOW 



SH2 



BZS 


SHAUI 


ALS 


1 


RAO- 


S 


LDO- 


S 


SOZ 


2 


RAO» 


SH2 


JMP* 


SH2 


SNO 


2 


EN 3 


?21 


JMP* 


ENOAL-1 


JH»* 


CSHA> 



ERR-2 

OVERFLOW SET ON LEFT SHIFT A 



00640 
00641 
00642 
00643 
00 644 
00645 
00646 
00647 
00648 
00649 
00650 
00651 
00652 
00653 



0655 
0656 
0657 

0658 P0282 0001 

0659 P0283 0FA1 

0660 po?«4 nono 

0661 P0285 C0DO 

0662 P0286 0102 

0663 P0?87 08F3 

0664 P02B8 18FA 

0665 P0281 0132 

0666 P023A 0C21 

0667 P0283 1814 

0668 P028C 1CF5 



SHIFT 7 LFFT AND CHECK FOR OVERFLOW 



SHI 



BZS 


SHQ<1) 


QLS 


' 1 


RAO- 


S 


LOA- 


S 


SAZ 


2 


RAO* 


SHI 


JMP* 


SHI 


SNO 


2 


FNQ 


$21 


JM°» 


ENOQL-1 


JMP* 


(SHQ) 



ERR2 

OVERFLOW SET ON Q LEFT SHIFT 



00655 
00656 
00657 
00658 
00659 
00660 
00661 
00662 
00663 
00 664 
00665 
00666 
00667 
00668 



0670 



******** SECTION 10-Q LEFT SHIFT ******** 



00670 



0672 P0?8D 0AF1 

0673 P028E 600D 

0674 P028^ 01A0 

0675 P0290 C000 
P0291 0FA1 



QLS 



ENA 


-$E 


STA- 


S 


SOV 





LOA 


=NJFA1 



CLEAR OVERFLOW FAULT 



00672 
00 673 
00 674 
00 675 



60220200 
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r 



{ ) 



o 



COMOOi 



(Jl 


0676 


P0292 


68F0 




0677 


P0293 


EOOE 




0678 


P0294 


4C45 


o 


0679 


P0295 


58FC 


0680 


P0296 


0FA7 


0631 


P0297 


*»C<»3 




0682 


P0293 


CC«»2 


^—^ 


0683 


P029.9 


BC<»0 


U 


068<t 


P029A 


0105 


0635 


P0293 


CC3F 




0686 


P029C 


9C30 




0687 


P029D 


0102 


o> 


0688 


P029E 


0C11 


o 


0689 


P029F 


5C39 




0690 


P0 2A0 


1C37 



ENOQL 



PAGE 


19 


STA* 


SHI 


LDQ- 


OP 


STQ* 


CST301 


RTJ* 


SHQ 


QLS 


7 


STQ» 


CST31I 


L0A» 


IST31> 


EOR* 


CST30) 


SAZ 


ENDQL-*-l 


LOA* 


(ST311 


SUB* 


(ST30I 


SAZ 


ENDQL-*-l 


ENQ 


$11 


RTJ* 


ISTP3) 


JMP» 


CEND31 



OATE* 10/20/75 



Q=XY,X= ERROR NUMBER, Y=NUM8ER OF 



00676 
00677 
00678 
00679 
00680 
00681 
00682 
00683 
00684 
00685 
00686 
00687 
00688 
00689 
00690 



0692 



******** SECTION 11-A RIGHT SHIFT ******** 



00692 



r" 



069«f 


P02A1 


ocoo 


0695 


P02A? 


«»0DD 


0696 


P02A3 


C079 


0697 


P02A<» 


0FM 


0698 


P02A5 


6C35 


0699 


P02A6 


BA00 




P02A7 


FEM 


0700 


P02A8 


0109 


0701 


P02A9 


CC31 


0702 


P02AA 


9A00 




P02AB 


FE30 


0703 


P02AG 


0105 


070*» 


P02AO 


CA00 




P02A£ 


FE3A 


0705 


P02AF 


6C2A 


0706 


PQ2B0 


0C11 


0707 


P02B1 


5C27 


0708 


P02B2 


soon 


0709 


P02e3 


0O01 


0710 


P02B<f 


«f0DO 


0711 


P0235 


cooo 


0712 


P02Q6 


90 70 


713 


PQ2B7 


0103 


07H» 


P02EW 


'♦ODD 


0715 


P0239 


GC21 


0716 


P02BA 


13E9 


0717 


P0280 


IC1C 



ARSP 



ARSP5 



ARSP? 



ARSPtf. 



ENQ 





STQ- 


S 


LOA- 


C0NST*14 


ARS 


1 


STA* 


IST31) 


EOR 


CON10,Q 


SAZ 


ARSP2-*-l 


LOA* 


(ST31) 


SUB 


CON10,Q 


SAZ 


ARSP2-*-l 


LOA 


CON10,Q 


STA» 


(ST30I 


FNQ 


$11 


RTJ* 


ISTP3J 


LOQ- 


S 


INQ 


1 


STQ- 


s 


LOA- 


s 


SUB- 


HO00F 


SAZ 


ARSP l»-»-i 


ST1- 


S 


LOA* 


(ST31) 


JMP* 


ARSP5 


JMP* 


1END3I 



(»000 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



D069«i 
00695 
00696 
00697 
00698 
00699 

00700 
00701 
00702 

00703 
00704 

00705 
00706 
00707 
00708 
00709 
00710 
00711 
00712 
00713 
0071i» 
00715 
00 716 
00717 



0719 



******** SECTION 12-A RIGHT SHIFT ******** 



00719 



0721 P02BC C07A 



ARSN 



LOA- 



BIT15 



($8000} 



00721 



o 



60220200 
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r 





COM001 


0722 


P02BO 


OCOO 


0723 


P02BE 


t»0OD 


0724 


P02BF 


0F41 


0725 


P02C0 


6C1A 


0726 


P02C1 


BAOQ 




P02C2 


FE16 


0727 


P02C3 


0109 


0728 


P02C4 


CC16 


0729 


P02C5 


9A00 




P02C6 


FE12 


0730 


P02C7 


0105 


0731 


P02C8 


CAOO 




P02C9 


FEOF 


0732 


P02CA 


6C0F 


0733 


P02C3 


0C11 


0734 


P02CC 


5C0C 


0735 


P02CO 


EOOO 


0736 


P02CE 


0001 


0737 


P02CF 


40OD 


0738 


P0200 


CODO 


0739 


P02D1 


907O 


0740 


P0202 


0103 


0741 


P02O3 


4000 


0742 


P02O«» 


CC06 


0743 


P02O5 


18E9 


07«»4 


P02D6 


1C01 



PAGE 20 



OATEI 10/20/75 



ARSN5 



ARSN2 



ARSNt» 



0746 P0207 0031 P EN03 

0747 P02O8 091C P STP3 
07<»8 P02D9 093B P ST30 
0749 P020A 093C P ST31 



ENQ 





STQ- 


S 


ARS 


1 


STA» 


(ST31I 


EOR 


C0N7»1»Q 


SAZ 


ARSN2-»-l 


LOA» 


CST31) 


SUB 


C0N7+1»0. 


SAZ 


ARSN2-»-l 


LOA 


C0N7*.itQ 


STA» 


(ST30) 


ENQ 


$11 


RTJ* 


<STP3> 


LOQ- 


S 


INQ 


1 


STQ- 


S 


LDA- 


s 


SU9- 


H0O0F 


SAZ 


ARSN4-»-l 


STQ- 


S 


LOA* 


(ST31I 


JMP» 


ARSN5 


JMP» 


<END3> 


ADC 


ENDSEC 


ADC 


STOP 


ADC 


STORE 


ADC 


STORE* 1 



Q=XY,X=ERROR NUMBER, Y=NUMBER. OF 



00722 
00723 
00724 
00725 
00726 

00727 
00728 
00729 

00730 
00731 

00732 
00733 
0073<» 
00735 
00736 
00737 
00738 
00739 
00740 
00741 
00742 
00743 
00 744 



00746 
00747 
00748 
00749 



L 



0751 



»»♦♦»*♦» SECTION 13-A RIGHT, Q RIGHT SHIFTS *»»»♦•»* 



00751 



0753 


P02DB 


OCOO 


RSHIF 


ENQ 





0754 


P02DC 


0A1F 


RSHIF«» 


ENA 


S1F 


0755 


P020D 


AODE 




ANO- 


OP 


0756 


P02DE 


0822 




TRA 


Q 


757 


P020F 
P02E0 


8000 
0F40 




ADD 


=NS0F40 


0758 


P02E1 
P02E2 


F000 
OF20 




AOQ 


=N$OF20 


0759 


P02E3 


6804 




STA* 


RSHIF1 


0760 


P02E4 


4804 




STQ» 


RSHIF2 


0761 


P02E5 


CODE 


RSHIF3 


LOA- 


OP 


0762 


P02E6 


EODE 




LDQ- 


OP 


0763 


P02E7 


OBOO 


RSHIF1 


NOP 





0764 


P02E8 


OBOO 


RSHIF2 


NOP 





765 


P02E9 


4CF0 




STQ» 


(ST31I 


0766 


P02EA 


6CEE 




STA» 


(ST30) 



MAKE SHIF INSTRUCTIONS 



HILL CONTAIN A RIGHT SHIFT INST 
HILL CONTAIN Q RIGHT SHIFT INST. 



00753 
00754 
00755 
00756 
00757 

00758 

00759 
00760 
00761 
00762 
00763 
00764 
00765 
00 766 



V.., 



s~ 



60220200 E 
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c 
c 

r 



o 





COM001 


0767 


P02EO 


BCEE 


0768 


P02EC 


0105 


0769 


P02EO 


CCE8 


0770 


P02EE 


9CEB 


0771 


P02EF 


0102 


0772 


P02F0 


0C11 


0773 


P02F1 


5CE6 


774 


P02F2 


1CE4 



PAGE 21 



OATEI 10/20/75 



RSHIF7 



EOR* 


CST311 


SAZ 


RSHIF7-*-l 


LOA» 


CST30) 


SUB* 


«ST31I 


SAZ 


RSHIF7-»-l 


ENQ 


$11 


RTJ» 


CSTP3! 


JMP* 


(END31 



Q=XY«X=ERROR NUHBER.Y-NUMBER OF 



00767 
00768 
00769 
00770 
00771 
00772 
00773 
♦•♦00774 



0776 



******** 



SECTION 14-LONG LEFT SHIFT 



00776 



. ) 


0778 


P02F3 0A01 


LLS 


ENA 


1 


^ y 


0779 


P02F4 600D 




STA- 


S 




0780 


P02F5 8000 




AOO 


=NSFE0 


/''"""* ^ 




P02F6 0FE0 








f '. 


0781 


P02F7 6803 




ST A* 


LLS2 


v_y 


0782 


P02F8 C0OE 




LOA- 


OP 




0783 


P02F9 E0OF 




LDQ- 


OP+1 




0784 


P02FA 0B00 


LLS 2 


NOP 





o 


0785 


P02F3 6C26 




STA» 


CST32I 


[ 


0786 


P02FC O0DO 




RAO- 


S 




0787 


P02FO COOO 




LOA- 


s 




0738 


P02FE 8000 
P02FF OFEO 




ADD 


=N$0FE0 


o 


0789 


P0300 68F9 




STA* 


LLS2 


0790 


P0301 C0DD 




LDA- 


S 




0791 


PQ302 90 70 




SUfl- 


CONSTf5 


f~ -,, 


0792 


P0303 0102 




SAZ 


LLS3-»-l 


f J 


0793 


P0304 CC10 




LDA» 


(ST32I 


^ — 


0794 


P0305 18F4 




JMP* 


LLS2 




0795 


P0306 01B2 


LLS3 


SNO 


2 


_ 


0796 


P0307 0C21 




EN a 


♦21 


o 


0797 


P0308 1817 




JMP* 


ENOLL-1 


0798 


P0309 CC18 




LDA» 


(ST321 




0799 


P030A OFFO 




LLS 


16 




0800 


P030B 4C17 




STQ» 


(ST331 


c\ 


0801 


P030C BODE 




EOR- 


OP 


W 


0802 


P030O 0104 




SAZ 


LLS4A-»-l 




0803 


P030E CC13 




LOA* 


(ST32I 




0804 


P030F 900E 




SU9- 


OP 


r~\ 


0805 


P0310 0101 




SA7 


LLS4A-»-l 


( ) 


0806 


P0311 1809 




JMP» 


LLS4 


v - — y 


0807 


P0312 CC10 


LLS4A 


LOA* 


CST33) 




0808 


P0313 BOOF 




EOR- 


OP*i 


/~~~' 


0809 


P0314 0104 




SA7 


LLS6-o-l 


C ) 


0810 


P0315 CCOD 




LOA» 


CST33I 


\_y 


0811 


P0316 90DF 




SUB- 


OP+1 




0812 


P0317 0101 




SAZ 


LLS6-*-l 




0813 


P0318 1802 




JMP» 


LLS4 


O 


0614 


P0319 1807 


LLS6 


JMP» 


ENDLL 


0815 


P031A CODE 


LLS4 


LOA- 


OP 


o 




60220200 E 









S=l 



0020 



OVERFLOW SET ON LLS 



00778 
00779 
00780 

00781 
00782 
00783 
00784 
00785 
00786 
00787 
00788 

00789 
00790 
00791 
00792 
00793 
00 794 
00795 
00796 
00797 
00798 
00799 
00800 
00801 
00802 
00 803 
00804 
00805 
00806 
00807 
00808 
00809 
00810 
00811 
00812 
00813 
00814 
00815 
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c 






COMOOl 



0816 P031B 6CBD 

0817 P031C CODF 

0818 P031D 6CBC 

0819 P031E 0C12 

0820 P031F 5CB8 

0821 P0320 1C86 

0822 P0321 093O 

0823 P0322 093E 





PftGE 


22 






STA* 




(ST30» 




LDA- 




OP*l 




STA» 




(ST31I 




ENQ. 




S12 




RTJ* 




ISTP31 


ENOLL 


JMP* 




«EN03) 


P ST32 


ADC 




ST0RE*2 


P ST33 


ADC 




ST0RE4-3 



DATE* 10/20/75 



Q=XY,X=ERROR NUMBER. Y=NUMBER OF 



00816 
00817 
00818 
00819 
00820 
00821 
00822 
00823 



r 



0825 



•»••»•»• SECTION 15-LONG RIGHT SHIFT 



00825 



0827 


P0 32 3 


OAQO 


0828 


P0324 


60DO 


0829 


P0325 


6800 




P0326 


FOBO 


0830 


P0327 


C07A 


0831 


P0328 


E079 


0832 


P0329 


0F61 


0833 


PQ32A 


6CF6 


0834 


P0323 


4CF6 


0835 


P032C 


EOOD 


0836 


P032D 


BAOQ 




P032E 


FD99 


0837 


P032F 


0105 


0838 


P0330 


CCFO 


0839 


P0331 


9A00 




P0332 


F095 


0840 


P0333 


0101 


0841 


P0334 


180E 


0842 


P0335 


CCEC 


081*3 


P0336 


BAOO 




P0337 


F091 


0844 


P0338 


0105 


0845 


P0339 


CCE8 


0846 


P033A 


9A00 




P033B 


F08D 


0847 


P033C 


0101 


0848 


P0 330 


1805 


0849 


P033E 


0A10 


0850 


P0 33F 


5406 


0851 


P0340 


18E2 


0852 


P0 341 


180C 


0853, 


P0342 


CAOO 




P0343 


F085 


0854 


P0 344 


6C95 


0855 


P0345 


CAOO 




P0346 


FD81 


0856 


P0347 


6C00 




P0348 


FF90 


0857 


P0 349 


0C12 


0858 


P034A 


5C0O 




P034B 


0066 




60220200 1 



LRS 



LRS9 



LRS2 



LRS4 



LRS3 



ENA 





STA- 


S 


STA 


C0N7-1 


LDA- 


CONST*15 


LOQ- 


C0NST»14 


LRS 


1 


STA* 


CST32I 


STQ* 


CST33) 


LOQ- 


S 


EOR 


CON2U.Q 


SAZ 


LRS2-*-l 


LDA» 


CST32I 


SUB 


C0N2+1.Q 


SAZ 


LRS2-*-l 


JMP* 


LRS3 


LDA* 


IST33I 


EOR 


CON2+2,Q 


SA7 


LRS4-»-l 


LOA» 


CST33) 


SUB 


C0N2+2.Q 


SAZ 


1 


JMP* 


LRS3 


ENA 


$10 


RTJ- 


tJUMP) 


JMP* 


LRS 


JMP* 


LRS8 


LDA 


CON2+2.Q 


STA* 


CST31) 


LDA 


CON2+1.Q 


STA 


!ST30» 


ENQ 


$12 


RTJ 


CSTP4I 



S=0 



8000 
4000 



TEST SHIFTEO A 



TEST SHIFTED A 
ERROR 



ERROR 



REPEAT CONDITIONS 



Q=XV,X=ERROR NUMBER. Y=NUNBER OF 



00827 
00828 
00829 


\ 


00830 
00831 
00832 
00833 
00834 
00835 
00836 




00837 
00838 
00839 


'v. 


00840 
00841 
00842 
00 843 


1 
• ■ V 


00844 
00845 
00846 


00847 
00848 
00849 
00850 
00851 
00852 
00853 


c 


00854 
00855 


c 


00856 


c 


00857 
00858 


PAGE 22 


c. 




c 




c 



COMOOi 
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DATEt 10/20/75 



o 
o 

/' 1 



o 



0859 


P03«»C 


18F1 


0860 


P03*»D 


coon 


0861 


P03I»E 


9000 




P03«»F 


000D 


0862 


P0350 


010l» 


0863 


P0351 


CCCF 


0861* 


P0352 


DODD 


0865 


P0353 


ECCE 


0866 


P0354 


±8Dk 


0867 


P0355 


ocoo 


0868 


P0356 


40DO 


0869 


P0357 


E07A 


0870 


P0358 


«»800 




P0359 


F070 


0871 


P0 35A 


C07A 


0872 


P035B 


0F61 


0873 


P035C 


eca* 


087*» 


P035D 


«tCC<» 


0875 


P035E 


EODO 


0876 


P035F 


BA00 




P0360 


FD67 


0877 


P0 361 


0105 


0878 


P0 362 


C08E 


0879 


P0363 


9A00 




P036«» 


F063 


0880 


P0365 


0101 


0881 


P0366 


1803 


0882 


P0367 


CCBA 


883 


P0368 


BAOO 




P0369 


F06F 


08ftt» 


P036A 


.0111 


0885 


P036B 


180E 


0886 


P036C 


CCB5 


0887 


P036D 


9A00 




P036E 


F06A 


0888 


P036F 


0109 


0889 


P0370 


1801 


0890 


P0371 


CAOO 




P0372 


F055 


0891 


P0373 


6C3F 


0892 


P037<* 


CAOO 




P0375 


F063 


0893 


P0376 


6C30 


089<» 


P0377 


0C22 


0895 


P0378 


5C39 


0896 


P0379 


C07O 


0897 


P037A 


9000 


0898 


P0378 


0105 


0899 


P037C 


<tOOO 


0900 


P0370 


DOOO 


0901 


P037E 


CCA2 


0902 


P037F 


ECA2 


0903 


P0380 


180A 



LRS8 



LRS10 



LRS11 



LRS12 



LRS15 



LRS16 



JMP» 


LRS«» 


LDA- 


S 


SUB 


=N13 


SAZ 


LRS10-»-l 


LDA» 


(ST321 


RAO- 


S - 


loi» 


CST33) 


JMP» 


LRS9 


EN<3 





STQ- 


s 


LOQ- 


CONSH-15 


STQ 


C0N7-1 . 


LDA- 


C0NST>15 


LRS 


1 


STA* 


<ST32> 


STQ» 


CST33I 


LOQ- 


S 


EOR 


CON2+l«Q 


SAZ 


LRS12-*-l 


LDA» 


<ST32> 


SUB 


C0N2H.Q 


SAZ 


LRS12-*-l 


JMP* 


LRS15 


LOA* 


CST33I 


EOR 


C0N7+1,Q 


SAN 


1 


JMP* 


LRS16 


LOA» 


IST33) 


SUB 


C0N7+l f Q 


SAZ 


LRS16-»-l 


JMP» 


LRS15 


LOA 


CON2«-i,Q 


STA» 


fSTi>OI 


LOA 


C0N7*1,Q 


STA* 


<STM1 


ENQ 


$22 


RTJ» 


(STPI»1 


L9A- 


HOOOF 


SUB- 


S 


SAZ 


ENDLR-*-l 


STQ- 


S 


RAO- 


S 


LOA* 


IST321 


LDQ» 


(ST33) 


JHP» 


LRS11 



s=o 

8000 
8000 



ERROR 



Q=XY,X=ERROR NUMBER tY=NUHBER OF 



00859 
00860 
00861 

00862 
00863 
00 86*1 
00865 
00866 
00 867 
00868 
00869 
00870 

00871 
00872 
00873 
0087*» 
00875 
00876 

00877 
00878 
00879 

00880 
00881 
00882 
00883 

0088* 
00885 
00886 
00887 

00888 
00889 
00890 

00891 
00892 

00893 
0089% 
00895 
00896 
00897 
00898 
00899 
00900 
00901 
00902 
00903 



O 



60220200 E 
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( ) 



v_. 



COH001 



PAGE 2* 



DATE! 10/20/75 



0901* P0381 1C2F 



ENDLR 



JMP* 



(END*! 



***009O* 



0906 



******** SECTION 16-ENTER A 



00906 



0908 


P0382 


A081 


ENA 


ANO- 


0909 


P0383 


6C2F 




STA* 


0910 


P038* 


6C2F 




STA* 


0911 


P0385 


A072 




ANO- 


0912 


P0386 


0103 




SAZ 


0913 


P0387 


C082 




LDA- 


091V 


P0383 


8C2A 




AOD» 


0915 


P0389 


6C29 




STA* 


0916 


P038A 


CC29 


FNA8 


LDA* 


0917 


P038B 
P038C 


8000 
0AO0 




ADD ' 


0918 


P038O 


6801 




STA* 


0919 


P038E 


0B00 


ENA2 


NOP 


0920 


P038F 


6C2* 




STA* 


0921 


P0390 


CC22 


ENA5 


LDA* 


0922 


P0391 


BC22 




EOR* 


0923 


P0392 


0105 




SAZ 


092*» 


P0393 


CC1F 




LDA* 


0925 


P039* 


9C1F 




SUB* 


0926 


P0395 


0102 




SAZ 


0927 


P0396 


0C11 


ENA7 


ENQ 


0928 


P0397 


5C1A 




RTJ* 


0929 


P0398 


1C18 


ENOEA 


JMP* 



HOOFF 

<ST*0» 

<ST*11 

CONST+7 

ENA8-*-l 

HFFOO 

<ST*0) 

<ST*01 

(ST*1> 

=N$OA00 

ENA2 

<ST*1> 

IST*01 

CST*1I 

ENDEA-*-l 

CST*01 

(ST*1> 

ENDEA-*-l 

$11 

<STP*1 

IEND*I 



OP IN A. 
0080 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



00908 
00909 
00910 
00911 
00912 
00913 
0091* 
00915 
00916 
00917 

00918 
00919 
00920 
00921 
00922 
00923 
0092* 
00925 
00926 
00927 
00928 
00929 



0931 



******** SECTION 17-ENTER Q ******** 



00931 



0933 P0399 


A081 


ENQ 


AND- 


HOOFF 


093* P039A 


6809 




STA* 


FNQ2 


0935 P039B 


8000 




AOO 


=N$0C00 


P039C 


OCOO 








0936 P039O 


6808 




STA* 


ENQ3 


0937 P039E 


C805 




LDA* 


ENQ2 


0938 P039F 


8000 




ADO 


=N$0A00 


P03A0 


0A00 








0939.P03A1 


6803 




STA* 


ENQ* 


09*0 P03A2 


1802 




JMP* 


ENQ* 


09*1 P03A3 


0001 




BSS 


ENQ2I1) 


09*2 P03A* 


0B00 


• ENQ* 


NOP 





09*3 P03A5 


0800 


ENQ3 


NOP 





09** P03A6 


6C0C 




STA* 


<ST*D> 


09*5 P03A7 


*C0C 




STQ* 


IST*H 


09*6 P03A8 


BCOB 




EOR* 


tST*ll 


09*7 P03A9 


0105 




SAZ 


ENOEQ-*-! 



OP IN A. 



ENTER * 
ENTER Q 



00933 
0093* 
00935 

00936 
00937 
00938 

00939 
009*0 
009*1 
009*2 
009*3 
009** 
009*5 
009*6 
009*7 



60220200 E 



PAGE 2* 



v.. 



( 



COH001 



09<t8 P03AA CC08 
09««9 P03A9 9CQ3 

0950 P03AC 0102 

0951 P03AD OCil 

0952 P03AE 5C03 

0953 P03AF 1C01 



ENQ6 



ENDEO. 



0955 P03B0 00 31 P END** 

0956 P03B1 091C P STP<f 

0957 P03B2 0938 P ST«t0 

0958 P03B3 093C P STU1 



0960 ♦»**»* 

0961 P03Bt» OAFF ANO 

0962 P03B5 EOOE 

0963 P03B6 *»CFB 
096«f P03B7 AOOE 

0965 P03B8 6CFA 

0966 P03B9 BODE 

0967 P03BA 0105 

0968 P03BB CCF7 

0969 P03BC 900E 

0970 P03BD 0102 

0971 P03BE 0C11 

0972 P03BF 5CF1 

0973 P03C0 1CEF ENOAN 



PAGE 


25 


LOA» 


IST^OI 


SUB» 


IST*1) 


SAZ 


ENDEQ-*-l 


ENQ 


til 


RTJ* 


CSTPW 


JMP* 


CENOM 


ADC 


ENDSEC 


AOC 


STOP 


ADC 


STORE 


AOC 


STORE+1 


SECTION 


18-ANO WITH 


EN A 


-0 


LOQ- 


OP 


STQ* 


(ST401 


ANH- 


OP 


STA* 


(STM1 


EOR- 


OP 


SAZ 


ENOAN-*-l 


IDA* 


<ST*»1I 


SUB- 


OP 


SAZ 


£NOAN-*-i 


ENO 


$11 


RTJ* 


CSTPW 


JMP* 


(ENDM 



DATEI 10/20/75 



QsXf,X=ERROR NUMBER »Y=NUMBER OF 



A *«!**••** 



Q=XV,X=ERROR NUMBER ,Y=NUMBER OF 



00948 
00949 
00950 
00951 
00952 
00953 



00955 
00956 
00957 
00958 



00960 
00961 
00962 
00963 
00964 
00965 
00966 
00967 
00 968 
00969 
00970 
00971 
00972 
00973 



o 



0975 




»»»•»»»*» 


SECTION 




0977 P03C1 


0A00 


ADO 


ENA 





0978 P03C2 


68tt6 




STA* 


CARR 


0979 P03C3 


6CEE 




STA* 


IST40) 


0980 P03C4 


6000 




STA- 


S 


0981 P03C5 


CODE 




LOA- 


OP 


0982 P03C6 


011<» 




SAN 


AGAIN-*-l 


0983 P03C7 


CODF 




LDA- 


OP+1 


098U P03C8 


B07C 




EOR- 


HFFFF 


0985 P03C9 


0105 




SA7 


THIS-*-l 


0986P03CA 


180C 




JMP* 


OK 


0987 P03CB 


B07C 


AGAIN 


EOR- 


HFFFF 


0988 P03CC 


0119 




SAN 


OK-*-i 


0989 P03CO 


COOF 




LOA- 


OP+1 


0990 P03CE 


0112 




SAN 


DAM-*-l 


0991 P03CF 


6CE2 


THIS 


STA* 


(ST«f01 


0992 P0300 


1820 




JMP* 


A0D8A 


0993 P03O1 


COOF 


DAH 


LOA- 


OP»l 


099«» P03D2 


B07C 




EOR- 


HFFFF 



CARR=0 



00975 



00977 
00978 
00979 
00980 
00981 
00982 
00983 
00984 
00985 
00986 
00987 
00 988 
00989 
00990 
00991 
00992 
00993 
00994 



60220200 
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n 



COMOOl 



PAGE 26 



DATEI 10/20/75 



r'-- 



0995 P0303 


0112 




SAN 


OK-*-l 


0996 P03D'* 


OAFF 




ENA 


-0 


0997 PQ305 


18F9 




JHP* 


THIS 


0998 P03D6 


CODE 


OK 


LOA- 


OP 


0999 P0307 


EOOF 




LOQ- 


OP+1 


1000 P03D8 


OFCF 




ALS 


15 


1001 P03D9 


OFAF 




QLS 


15 


1002 P03DA 


682F 


A0012 


STA* 


AA 


1003 P0303 


<+82F 




STQ* 


QQ 


1004 P030C 


0125 




SAP 


A002-*-l 


1005 P030D 


0165 




SQP 


AOD3-*-l 


1006 P030E 


C82A 




LOA* 


CARR 


1007 P030F 


0115 




SAN 


AOO<»-*-l 


1008 P03E0 


0828 




RAO* 


CARR 


1009 P03E1 


180C 




JMP* 


A005A 


1010 P03E2 


0165 


A0D2 


SQP 


AODll-*-l 


1011 P03E3 


C825 


A003 


LOA* 


CARR 


1012 P03E*» 


0118 




SAN 


AD05A-*-l 


1013 P03E5 


CCCC 


ADOd 


LOA* 


(ST401 


1014 P03E6 


0C01 




ENQ 


1 


1015 P03E7 


1808 




JMP* 


A0D6 


1016 P03E8 


C820 


AD011 


LOA* 


CARR 


1017 P03E9 


0103 




SAZ 


A0D5A-*-l 


1018 P03EA 


OAOO 




ENA 





1019 P03EB 


6810 




STA* 


CARR 


1020 P03EC 


18F8 




JNP» 


A004 


1021 P03EO 


CCCi» 


AD05A 


LOA* 


CST40) 


1022 P03EE 


ocoo 




ENQ 





1023 P03EF 


0F61 


A006 


LRS 


1 


102*» P03F0 


6CC1 


A0D7 


STA* 


CST40) 


1025 P03F1 


.OAOF 




ENA 


15 


1026 P03F2 


9000 




SUB- 


s - 


1027 P03F3 


0106' 




SAZ 


A008-*-l 


1028 P03F*f 


OOOD 




RAO- 


S 


1029 P03F5 


C81«f 




LDA* 


AA 


1030 P03F6 


E814 




LOQ* 


QQ 


1031 P03F7 


OFCF 




ALS 


15 . 


1032 P03F8 


OFAF 




QLS 


15 


1033 P03F9 


18E0 




JNP* 


ADD12 


i03*t P03FA 


C80E 


A0D8 


LOA* 


CARR 


1035 P03F3 


0101 




SAZ 


AO08A-*-l 


1036 P03FC 


DC 85 




RAO* 


CST401 


1037 P03FD 


CODE 


ADD8A 


LOA- 


OP 


1038 P03FE 


800F 




AOO- 


OP+1 


1039 P03FF 


6CB3 




STA* 


IST41) 


101*0 P0<»00 


8CB1 




EOR* 


<STI»0» 


1041 PO^Ol 


0105 




SAZ 


ENOAO-*-l 


10«»2 POkQZ 


CCBO 




LOA* 


(ST41I 


101*3 P0*f03 


9CAE 




SUB* 


IST401 


10i»4 PQittik 


0102 




SAZ 


ENOAD-*-l 


1045 P0*»05 


0C11 


AOOIO 


ENQ 


$11 


10<»6 P0«»06 


5CAA 




RTJ* 


<STP<») 


1047 P0407 


1CA8 


ENOAO 


JMP* 


<ENO«fl 



A= + 
Q 



CARR * 1 



S=l 



Q=XY,X= ERROR NUHBER,T=NUNBER OF 



00995 
00996 
00997 
00998 
00999 
01000 
01001 
01002 
01003 
01004 
01005 
01006 
01007 
01008 
01009 
01010 
01011 
01012 
01013 
0101*1 
01015 
01016 
01017 
01018 
01019 
01020 
01021 
01022 
01023 
0102*1 
01025 
01026 
01027 
01028 
01029 
01030 
01031 
01032 
01033 
01034 
01035 
01036 
01037 
01038 
01039 
01040 
01041 
01042 
01043 
01044 
01045 
01046 
01047 
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c 



COMOOi 



PAGE 27 



DATEI 10/20/75 



10<f8 P0%08 0001 
P0%09 0001 
PO*»OA 0001 



8SS 



CARR(1),AA(11,QQ<11 



010%8 



1050 



******** SECTION 1A-EXCLUSIVE OR WITH A ******** 



01050 



1052 


P0%03 


OAOO 


EOR 


ENA 


1053 


P0%0C 


60DD 




STA- 


105% 


P0%0D 


6CA% 




STA* 


1055 


PO%0E 


CODE 




LOA- 


1056 


P0%0F 


EOOF 




LDQ- 


1057 


P0%10 


68F8 


E0R7 


STA* 


1058' 


P0%11 


%8F8 




STQ* 


1059 


P0%12 


0122 




SAP ' 


1060 


P0%13 


0162 




SQP 


1061 


P0%1% 


1806 




JMP* 


1062 


P0%15 


016% 


E0R2 - 


SQP 


1063 


P0%16 


CC9B 


E0R3 


LOA» 


106% 


P0%17 


0C01 




ENQ 


1065 


po%u 


087V 




EAQ 


1066 


P0%19 


1802 




JMP» 


1067 


P0%1A 


CC50 


E0R9 


LDA* 


1068 


P0%1B 


6C%F 


EOR% 


STA» 


1069 


P0%1C 


DOOD 




RAO- 


1070 


P0%10 


COOO 




LOA- 


1071 


POME 


90 6F 




SUB- 


1072 


P0%1F 


0107 




SAZ 


1073 


P0%20 


CC%A 




LDA» 


107% 


P0%21 


0FC1 




ALS 


1075 


P0%22 


6C%8 




STA» 


1076 


P0%23 


C8E5 




LDA* 


1077 


P0%2% 


E8E5 




LDQ» 


1078 


P0%25 


0FE1 




LLS 


1079 


P0%26 


18E9 




JMP* 


1030 


P0%27 


CODE 


E0R6A 


LDA- 


1081 


P0%23 


90DF 




EOR- 


1082 


P0%29 


6C%2 




STA* 


1083 


P0%2A 


9C%0 




SUB* 


108% 


P0%2B 


0103 




SAZ 


1085 


P0%2C 


0C11 




ENQ 


1086- 


P0%2D 


5C3C 




RTJ* 


1087 


P0%2E 


1801 




JMP» 


1088 


P0%2F 


1C39 


E0R8 


JNP* 





s 

<ST%0> . 

OP 

OP+1 

AA 

QQ 

EOR2-?»rl 

£OR3-*-l 

E0R9 

E0R9^*-1 

(ST%01 

1 

A 

EOR% 

(ST501 

CST50I 

S 

s 

CONSTf% 

E0R6A-»-l 

IST501 

1 

(ST50) 

AA 

QQ 

1 

E0R7 

OP 

OP+1 

(ST51I 

(ST501 

EORB-»-l 

*11 

(STP5I 

EOR8 

(EN05I 



A=POS. 
Q=POS. 



0010 



Q=XY,X=ERROR NUMBER »*=NUMBER OF 



01052 
01053 
01054 
01055 
01056 
01057 
01058 
01059 
01060 
01061 
01062 
01063 
0106*i 
01065 
01066 
01067 
01068 
01069 
01070 
01071 
01072 
01073 
0107% 
01075 
01076 
01077 
01078 
01079 
01080 
01081 
01082 
01083 
0108% 
01085 
01086 
01087 
01088 



1090 



******** SECTION IB-ADD TO Q 



01090 



1092 P0%30 800F 



AOQ 



AOH- 



OP+1 



OP IN A. 



01092 



60220200 E 



PACE 27 



COH001 



1093 


P0W1 


6C39 


1094 


P0432 


EODE 


1095 


PQ433 


FOOF 


1096 


P0<»34 


4C37 


1097 


P0435 


CC36 


1099 


P0436 


BC34 


1099 


P0437 


0102 


1100 


P0438 


OCli 


1101 


P0439 


5C30 


1102 


P043A 


1C2E 



A0Q2 



A0Q3 



PAGE 


28 


STA* 


(ST50I 


LDQ- 


OP 


AOQ- 


. OPtl . . ... 


STQ* 


<ST511 


LDA» 


(ST51) 


EOR» 


(ST50I 


SAZ 


ADQ3-*-l 


ENQ 


til 


RTJ» 


ISTP51 ..:.... 


JMP» 


<END5I 



OATEt 10/20/75 



Q=XY,X= ERROR NUMBER»V=NUNBER OF 



01093 
0109li 
01095 
01096 
01097 
01098 
01099 
01100 
01101 
01102 



1104 



«****••* SECTION 1C-INCREASE A 



01104 



1106 P0438 A081 


. INA 


AND- 


HOOFF 


1107 P043C 6C2E 




STA» 


(ST501 


1108 P043D A072 




AND- 


C0NST*7 


1109 P043E 0103 




SAZ 


INA3-»-i 


1110 P043F CC2B 




LDA» 


IST50) 


1111 P0«»40 B082 




EOR- 


HFFOO 


1112 P0441 1802 




JMP* 


INA2 


1113 P0«f«»2 CC28 


INA3 


LOA» 


IST50I 


1114 P0443 6807 


INA2 


STA» 


INA4+1 


1115 P04«»4 CC26 




LDA*. 


IST501 


1116 P0445 8000 




ADD 


=N$900 


P0«f46 0900 








1117 P0hh7 6806 




STA» 


INA5 


1116 P0448 .COOF 




LOA- 


OP+l 


1119 P0449 8(100 


INA4 


AOD 


, sNO~ 


P044A 0000 








1120 P04«»B 6C1F 




STA» 


(ST50I 


1121 P04'»C COOF 




LOA- 


OP+l 


1122 P044D OBOO 


INA5 


NOP 




1123 P04»»E 6C10 




STA» 


CST51> 


1124 P044F BC18 




EOR» 


(ST50I 


1125 P045Q; 0102. 




SAZ 


...... I.NA6-*-! 


1126 P0451 0C11 




ENQ 


Jll 


1127 P0452 5C17 




RTJ* 


ISTP5» 


1128 P0453 1C15 


INA6 


JMP* 


CEND5I 



OP IN A. 
0080 



THE AMOUNT A MILL BE INCREASEO 



STORE INCREASE A INSTRUCTION 



Q=XY,X=ERROR NUMBER ,Y=MUMBER OF 



01106 
01107 
01108 
01109 
OHIO 
01111 
01112 
01113 
01114 
01115 
01116 

01117 
01118 
01119 

01120 
01121 
01122 
01123 
01124 
01125 
01126 
01127 
01128 



1130 



*»»**»»» SECTION ID-INCREASE Q **»♦»•»* 



01130 



1132 P0454 A081 

1133 P0455 6C15 

1134 P0456 8000 
P0457 0900 



INQ AND- HOOFF 
STA» CST501 

AOD =N$900 



OP IN A. 



01132 
01133 
01134 



/•"N 



^,- 



60220200 E 
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COM001 




PAGE 


29 


o 


1135 P0*58 


6808 




STA» 


INQ2 




1136 P0*59 


ECU 




LOQ» 


(ST50I 




1137 P0*5A 


FflOO 


. .. 


-ADQ ■..:. . 


ssNSDOO - 


r"'\ 


P0*5B 


0O00 








v ) 


1138 P0*5C 


*803 




STQ* 


INQ3 


v_y 


1139 P0*5O 


CODF 




LOA- ... 


OP*l 




il«#0 P0*5E 


E0DF 




LDQ- 


OP*l 





11*1 P0*5F 


OB0O 


INQ3 


NOP 




(' ") " 


1142 P0*60 


OBOO 


INQ2 


NOP 




W 


11*3 P0*61 


6C09 




STA» 


(ST501 




11** P0*62 


*C09 




STQ» 


(ST51I 




11*5 P0«»63 


BC08 




EOR» 


(ST51I 


O 


11*6 P0*6* 


0102 




SAZ 


INQ*-»-l 


11*7 P0*65 


0C11 




ENQ 


$11 




11*8 P0*66 


5C03 




RTJ» 


CSTP5) 


^ 


11*9 P0*67 


1C01 


INQ* 


JMP» 


(END5! 


Ji 


1151 P0*68 


0031 P 


END5 


1_ 

AOC 


ENOSEC 




1152 P0*69 


091C P 


STP5 


AOC 


STOP 


^""N 


1153 P0*6A 


093B P 


ST50 


AOC 


STORE 


1 


115* P0*6B 


093C P 


ST51 


AOC 


STORE+1 




1156 








IE-REPLACE 


^' 


1158 P0*6C 


0A00 


RAO 


ENA 







1159 P0*6D 


6CFC 




STA» 


(ST501 


o 


1160 P0*6E 


6CFC 




STA* 


(ST511 


1161 P0*6F 


01AO 


RAOl 


SOV 







1162 P0*70 


CCF9 




LDA» 


<ST50> 




1163 P0*71 


806B 




AOD- 


CONST 


o 


116* P0*72 


6CF7 




STA» 


(ST50) 


1165 P0*73 


0CF7 




RAO» 


(ST511 


1166 P0«f7* 


BCF6 




EOR» 


(ST51! 




1167 P0*75 


0102 




SAZ 


RA02-»-l 


, 


1168 P0*76 


0C11 




ENQ 


$11 


o 


1169 P0*77 


5CF1 




RTJ» 


(STP51 


1170 P0*78 


01B* 


RA02 


SNO 


t* 




1171 P0*79 


CCFO 




LOA» 


IST50) 




1172 P0*7A 


0132 




SAH 


. .2 


o 


1173 P0*7B 


0C21 




ENQ 


$21 


117* P0*7C 


5CEC 




RTJ» 


<STP5» 




1175 P0*7D 


0A13 




ENA 


RA03-RA0 




1176 P0*7E 


1CE9 




JMP* 


CEND5) 


o 


1177 P0*7F 


CCEA 


RA03 - 


LOA» 


(ST50I 


1178 P0*80 


09FE 




INA 


-1 


y 


1179 P0*81 


6CE8 




STA» 


(ST50I 




1180 P0*82 


CCE8 




LOA* 


IST511 


X~\ 


1181 P0*83 


09FE 




INA 


-1 


C ) 


1182 P0<»8* 


6CE6 




STA» 


CST511 


v_y 


1183 P0*85 


18E9 




JMP» 


RAOl 


o 


60220200 E 


- 






o 













OATEI 10/20/75 



Q=XY,X= ERROR NUMBER ,Y»NUMBER OF 



0001 



Q=XY,X=ERROR NUMBER f Y=NUM8ER OF 



OVERFLOW SET ON A RAO T.NSTRUCTIO 



REPEAT CONDITIONS 



01135 
01136 
01137 

01138 
01139 
011*0 
011*1 
011*2 
011*3 
Oil** 
011*5 
011*6 
011*7 
011*8 
011*9 



01151 
01152 
01153 
0115* 



01156 



01158 
01159 
01160 
01161 
01162 
01163 
0116* 

. 01165 
01166 
01167 
01168 
01169 
01170 
01171 
01172 
01173 
0117* 
01175 

•••01176 
01177 
01178 
01179 
01180 
01181 
01182 
01183 
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COH001 



PAGE 30 



DATE! 10/20/75 



1201 



******** SECTION 20-SKIP ON OVERFLOW, SKIP ON NO OVERFLOW »»»***** 



01201 



1203 


P0%9% 


0A00 


120% 


P0%95 


6835 


1205 


P0%96 


01B1 


1206 


P0%97 


0833 


1207 


P0%98 


C087 


1208 


P0%99 


0901 


1209 


P0%9A 


01A3 


1210 


P0%9B 


0C10 


1211 


P0%9C 


5CCC 


1212 


PO%90 


1805 


1213 


P0%9E 


01A1 


121% 


P0%9F 


1803 


1215 


P0%A0 


0C20 


1216 


P0%A1 


5CC7 


1217 


P0%A2 


0A10 


1218 


P0%A3 


5%06 


1219 


P0%A% 


18F3 


1220 


P0%A5 


COOO 




P0%A6 


8001 


1221 


P0%A7 


09FD 


1222 


P0%A8 


01A2 


1223 


P0%A9 


0C30 


122% 


PQ%AA 


5CBE 


1225 


P0%AB 


0A10 


1226 


P0%AC 


5%06 



OVNO 



0VN03 



0VN01 



0VN02 



OVNO% 



0VN05 



EN« 





STA» 


OVERF 


SNO 


1 


RAO* 


OVERF 


LOA- 


H7FFF 


INA 


1 


SOV 


OVN01-»-l 


ENQ 


$10 


RTJ» 


(STP5) 


JMP» 


0VN02 


SOV 


1 


JMP* 


0VN02 


ENQ 


$20 


RTJ» 


<STP5> 


ENA 


$10 


RTJ- 


(JUMP) 


JHP» 


OVNO 3 


LDA 


=N$8001 


INA 


-2 


SOV 


0VN05-»-l 


ENQ 


$30 


RTJ» 


(STP5I 


ENA 


$10 


RTJ- 


CJUMP1 



SET FLAG 

GENERATE OVERFLOW 

SHOULO SKIP 

Q=XY,X=ERROR NUMBER,Y=NUMBER OF 

SHOULO NOT SKIP 

Q=XY,X=ERROR NUMBER,Y=NUMBER OF 



REPEAT CONDI 



GENERATE OVERFLOW 

SHOULO SKIP 

Q=XY,X=£RROR NUMBER, Y=NUHBER OF 



01203 
0120*1 
01205 
01206 
01207 
01208 
01209 
01210 
01211 
01212 
01213 
0121% 
01215 
01216 
01217 
01218 
01219 
01220 

01221 
01222 
01223 
0122% 
01225 
01226 



^. 






1185 



♦"*»"♦ SECTION 1F-SUBRACT FROM A »»»♦»*** 



01185 



V 



1187 


P0%86 


086% 


1188 


P0%87 


6803 


1189 


P0%88 


CODF 


1190 


P0%89 


8000 




P0%8A 


0000 


1191 


P0%88 


6C0E 


1192 


P0%8C 


COOF 


1193 


P0%80 


900E 


119% 


P0%8E 


6C0C 


1195 


P0%8F 


BCDA 


1196 


P0%90 


0102 


1197 


P0%91 


OC11 


1198 


P0%92 


5C06 


1199 


P0%93 


1C0% 



SUB 



SUB«» 



SUB2 



SU03 



TCA 


A 


STA» 


SUB%*1 


LOA- 


OP 4-1 


AOD 


=N$0 


STA» 


<ST50> 


LOA- 


OPfl 


SU3- 


OP 


STA* 


(ST51) 


EOR* 


<ST50» 


SAZ 


SUB3-»-l 


ENQ 


$11 


RTJ* 


<STP5) 


JMP» 


(EN051 



OP IN A. 



Q=XY,X=ERROR NUMBER, Y=NUM BE R OF 



01187 
01186 
01189 
01190 

01191 
01192 
01193 
0119% 
01195 
01196 
01197 
01198 
01199 



r~ 



60220200 
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COH001 


o 


1227 


PO*AO 


18F7 


1228 


P0*AE 


C087 




1229 


PO*AF 


0901 


f"'^ 


1230 


P0*BD 


01B1 


( 


1231 


PO*Bi 


180* 


V_y 


1232 


P0*82 


0C*0 




1233 


P0*B3 


5CB5 




123* 


P0*8* 


180* 





1235 


P0*B5 


01B2 


1236 


P0*B6 


0C50 




1237 


P0*B7 


5CB1 




1238 


P0*B8 


0A10 


^s 


1239 


po*b9 


5*06 


u 


12*0 


PO*BA 


18F3 


12*1 


P0*B3 


COOO 






P0*8C 


8001 


r~"^. 


12*2 


PO*BD 


09F0 


^J 


12*3 


P0*BE 


01B1 


12** 


PQ*BF 


1803 




12*5 


P0*C0 


0C60 




12*6 


P0*C1 


5CA7 


o 


12*7 


P0*C2 


0A10 




12*8 


P0*C3 


5*06 


1 


12«»9 


PO*C* 


18F6 




1250 


P0*C5 


C805 




1251 


PQ*C6 


0102 


L_y 


1252 


P0*C7 


CO 87 




1253 


P0*C8 


0901 




125* 


po*C9 


1C9E 


/"~ s \ 


1255 


PO*CA 


0001 


O 


1256 


P0*CB 


0001 


Q 


1258 






/- N 


1260 


PO*CC 


OAOO 




1261 


PO*CD 


683C 




1262 


PO*CE 


633C 




1263 


PO*CF 


6830 


o 


126* 


P0*O0 


6000 


1265 


P0*D1 


683E 


V • 


1266 


P0*D2 


COOE 




1267 


P0*D3 


0111 


f~~: 


1268 


P0*D* 


1867 


U 


1269 


P0*D5 


B0 7C 


1270 


PO*06 


0111 




1271 


P0*D7 


186* 




1272 


P0*D8 


COOF 


r^ 


1273 


P0*D9 


0111 


w 


127* 


PO*DA 


1861 
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OATEt 10/20/75 



0VN05 



0VN07 



0VN08 



0VN09 



OVNOA 



OVNOW 



JHP» 


OVNO* 


LDA- 


H7FFF 


INA 


1 


SNO 


1 


JHP* 


0VN07 


ENQ 


$*0 


RTJ» 


(STP51 


JMP» 


0VN08 


SNO 


0VN08-»-l 


ENQ 


$50 


RTJ» 


<STP5» 


ENA 


210 


RTJ- 


(JUMP! . 


JHP» 


0VN06 


LOA 


=N$8001 


INA 


-2 


SNO 


1 


JMP» 


OVNOA 


ENQ 


$60 


RTJ» 


(STP51 


ENA 


$10 


RTJ- 


(JUMP! 


JMP* 


0VN09 


LDA* 


OVERF 


SAZ 


OVNOW-*-l 


LOA- 


H7FFF 


INA 


1 


JMP» 


(END5) 


BSS 


OVERFC1I 


BSS 


CARRY U) 



REPEAT, CONO. 



Q=XY,X=ERROR NUMBER f Y=NUMBER OF 



Q=XY,X=ERROR NUMBER, Y=NUN8ER OF 



REPEAT CONO. 



Q=XY,X=ERROR NUHBFR,Y=NUNBEROF 



REPEAT CONO. 



******** SECTION 21-MULTIPLY INTEGER ******** 



MUI 



ENA 





STA» 


PROOl 


STA* 


PR002 


STA» 


MULT2 


STA- 


S 


STA» 


NEG 


LDA- 


OP 


SAN 


1 


JMP» 


HUH 2 


EOR- 


HFFFF 


SAN 


1 


JHP» 


HUI12 


LOA- 


OP*l 


SAN 


1 


JMP» 


MUI12 



S=0 



OPERANO 1 =4-0 



OPERAND 1 =-0 



OPERANO 2 = +0 



01227 
01228 
01229 
01230 
01231 
01232 
01233 
0123* 
01235 
01236 
01237 
01238 
01239 
012*0 
012*1 

012*2 
012*3 
012** 
012*5 
012*6 
012*7 
012*8 
012*9 
01250 
01251 
01252 
01253 
0125* 
01255 
01256 



01258 



01260 
01261 
01262 
01263 
0126* 
01265 
01266 
01267 
01268 
01269 
01270 
01271 
01272 
01273 
0127* 
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DATEt 10/20/75 



1275 


P0%DB 


907C 


EOR- 


1276 


P0%OC 


0111 


SAN 


1277 


P0%DD 


185E 


JMP* 


1278 


P0%DE 


CODE 


LOA- 


1279 


P0%OF 


0122 


SAP 


1280 


P0%E0 


086% 


TCA 


1231 


P0%Ei 


082E 


RAO* 


1282 


P0%E2 


6829 


STA* 


1283 


P0%E3 


EOOF 


LOQ- 


1281* 


PO%E% 


0162 


SQP 


1285 


P0%E5 


0852 


TCQ 


1286 


P0%E6 


0829 


RAO* 


1287 


P0%E7 


%827 


STQ* 


1288 


P0%E8 


E826 MULT% LDQ* 


1289 


P0%E9 


0F61 


LRS 


1290 


P0%EA 


%82% 


STQ* 


1291 


P0%E3 


0131 


SAM 


1292 


P0%EC 


1825 


JMP* 


1293 


P0%ED 


C81E 


LDA* 


1291* 


PO%EE 


A822 


AND* 


1295 


PO%EF 


681E 


STA* 


1296 


PO%FO 


C819 


LOA* 


1297 


P0%F1 


A81F 


AND* 


1298 


P0%F2 


881B 


ADO* 


1299 


P0%F3 


A81D 


AND* 


1300 


PO%F% 


6819 


STA* 


1301 


P0%F5 


C816 


LOA* 


1302 


P0%F6 


8813 


ADO* 


1303 


P0%F7 


6812 


STA* 


130% 


P0%F8 


0115 


SAN 


1305 


P0%F9 


C81% 


LOA* 


1306 


PO%FA 


nioA 


SAZ 


1307 


P0%F8 


OAFF 


EN A 


1308 


PO%FC 


680O 


STA* 


1309 


PO%FD 


1808 


JMP* 


1310 


P0%FE 


A812 ATLAST AND* 


1311 


PO%FF 


980E 


SUB* 


1312 


P0500 


010% 


SAZ 


1313 


P0501 


C808 


LOA* 


131% 


P0502 


09FE 


INA 


1315 


P0503 


6806 


STA* 


1316 


P050% 


D806 


RAO* 


1317 


P0505 


C807 MUI1 LDA* 


1318 


P0506 


880% 


AOO* 


1319 


P0507 


6803 


STA* 


1320 


P0508 


1809 


JMP* 


1321 


P0509 


0001 


BSS 




P050A 


0001 




1322 


P050B 


0001 


8SS 




P050C 


0001 




1323 


P050O 


0000 HI 


NUM 


132% 


P050E 


0001 


BSS 


1325 


P050F 


0001 


BSS 



HFFFF 

1 

MUI12 

OP 

2 

A. 

NEG 

MULT1 

OP+1 

2 

Q 

NEG 

OPER 

OPER 

1 

OPER 

1 

SHIF2A 

MULT1 

Nl 

Ml 

PRODI 

Nl 

Ml 

Nl 

Ml 

MULT1 

PRODI 

PRODI 

ATLAST-*-l 

Ml 

MUII-*-i 

-0 

PRODI 

MUI1 

Nl 

Ml 

MUIl-*-l 

PRODI 

-1 

PRODI 

PR002 

MULT2 

PR0D2 

PR002 

SHIF2A 

PRODK1) tPR002(ll 

MULT1I1) ,MULT2!i> 



OPER (11 
NEG 11) 



OPERAND 2 
OPERAND 1 



OPERAND 2 



=-0 



AOO, SHIFT AND STORE 



MAKE PRODUCT 1 

DETERMINE IF -0 WENT TO +0 

IS CARRY AROUNO = «-0 
NO t THEN SET TO -0 



GO TO SECOND WORD 



01275 
01276 
01277 
01278 
01279 
01280 
01281 
01282 
01283 
0126% 
01285 
01286 
01287 
01288 
01289 
01290 
01291 
01292 
01293 
0129% 
01295 
01296 
01297 
01298 
01299 
01300 
01301 
01302 
01303 
0130% 
01305 
01306 
01307 
01308 
01309 
01310 
01311 
01312 
01313 
0131% 
01315 
01316 
01317 
01318 
01319 
01320 
01321 

01322 

01323 
0132% 
01325 



r 



L 



r 
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L 



r~ 



r 





COM001 




PAGE 


33 


1326 


P0510 0001 


Nl 


NUH 


1 


1327 


P0511 C«F9 


SHIF2A 


LOA» 


MULT1 


1328 


P0512 E8F9 




LOQ» 


MULT2 


1329 


P0513 0FE1 




LLS 


1 


1330 


P0514 68F6 




STA* 


MULT1 


1331 


P0515 **8F6 




STQ* 


MULT2 


1332 


P0516 OODD 


MUI2 


RAO- 


S 


1333 


P0517 OfllO 




EN A 


16 


133<» 


P0518 90DO 




SUB- 


S 


1335 


P0519 0101 




SAZ 


1 


1336 


P051A 18C0 




JMP» 


HULT4 


1337 


PQ51B C8F3 




LOA* 


NEG 


1338 


P051C 0108 




SAZ 


MUI5-*-l- 


1339 


P0510 A06C 




ANO- 


CONST+1 


13(*0 


P051E 0116 




SAN 


MUI5-*-l 


1341 


P051F C8E9 




LOA* 


PRODI 


1342 


P0520 0864 




TCA 


A 


1343 


P0521 68E7 




STA* 


PRODI 


1344 


P0522 C8E7 




LDA* . 


PROD2 


1345 


P0523 0864 




TCA 


A 


1346 


P052<» 68E5 




STA» 


PROD2 


1347 


P0525 C8E3 


MUI5 


LOA* 


PRODI 


1348 


P0526 6C00 
P0527 OOBE 




STA 


(ST60I 


1349 


P0528 C8E1 




LOA* 


PROD2 


1350 


P0529 6C00 
P052A OOBC 




STA 


!ST61I 


1351 


P0523 COOE 


MUI3 


LQA- 


OP 


1352 


P052C 20DF 




MUI- 


OP+1 


1353 


P052D 6C70 




STA* 


IST62I 


1354 


P052E 4C70 




STQ* 


<ST63> 


1355 


P052F BCOO. 
P0530 0085 




EOR 


CST6"0» 


1356 


P0531 0104 




SAZ 


MUIll-*-l 


1357 


P0532 0C12 


MUIEE 


ENQ 


$12 


1358 


P0533 5C00 
P0534n 00 BO 




RTJ 


(STP6I 


1359 


P0535 18Q6 




J HP* 


MUI12 


1360 


P0536 CC68 


MUI11 


LOA* 


IST63) 


1361 


P0537 BCOO 
P0538 OOAE 




EOR 


(ST61» 


1362 


P0539 0101 




SAZ 


HUI12-*-l 


1363 


P053A 18F7 




JMP* 


MUIEE 


1364 


P053B 188D 


HUI12 


JMP* 


OVMOW 



DATE! 10<20/75 



OPERAND 1 



Q=XV,X=ERROR NUMBERtY=NUMBER OF 



GO TO END SECTION ROUTINE. 



01326 
01327 
01328 
01329 
01330 
01331 
01332 
01333 
0133* 
01335 
01336 
01337 
01338 
01339 
01340 
013<»1 
01342 
01343 
01344 
01345 
01346 
01347 
01348 

01349 
01350 

01351 
01352 
01353 
01354 
01355 

01356 
01357 
01358 

01359 
01360 
01361 

01362 
01363 
01364 



1366 



SECTION 22-OIVIOE INTEGER »»*»»♦»» 



01366 



1368 P053C OAOO 

1369 P053O 685B 



DIV 



ENA 
STA* 




FLG1 



01368 
01369 
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COH001 




PASE 


34 


1370 P053E 


685B 




STA* 


FLG2 


1371 P053F 


6857 




STA* 


POSH 


1372 P0540 


6854 




STA* 


QU0T1 


1373 P0541 


6854 




STA* 


QU0T2 


1374 P0542 


6850 




STA* 


FIND 


1375 PQ543 


6000 




STA- 


S. 


1376 P0544 


COEO 




LOA- 


OP* 2 


1377 P0545 


0112 




SAN 


2 


1378 P0546 


1800 




JHP 


ENODI 


P0547 


0090 








1379 P0548 


80 7C 




EOR- 


HFFFF 


1380 P0549 


0112 




SAN 


2 


1381 P054A 


1800 




JMP 


ENDDI 


P054B 


0097 








1382 P054C 


COOF 




LOA- 


0P*1 


1383 P054O 


0113 




SAN 


OIVlB-*-l 


1384 P054E 


COOE 




LOA- 


OP 


1385 P054F 


0106 




SAZ 


OIVl-*-l 


1386 P0550 


1808 




JMP* 


DIV2 


1387 P0551 


B07C 


0IV1B 


EOR- 


HFFFF 


1388 P0552 


0115 




SAN 


0IV2-»-l 


1389 P0553 


CODE 




LDA- 


OP 


1390 P0554 


B07C 




EOR- 


HFFFF 


1391 P0555 


0112 




SAN 


0IV2-*-i 


1392 P0556 


1800 


0IV1 


JMP 


ENDDI 


P0557 


008B 








1393 P0558 


COOE 


0IV2 


LDA- 


OP 


1394 P0559 


EOOF 




LDQ- 


OP+1 


1395 P055A 


0163 




SQP 


0IV4-»-l 


1396 P055B 


0830 




RAO» 


. FLG1 


1397 P055C 


.0864 




TCA 


A 


1398 P055D 


0852 




TCQ 


Q 


1399 P055E 


683E 


DIV4 


STA» 


. DVN01 


1400 P055F 


483C 




STQ* 


0VN02 


1401 P0560 


COEO 




LOA- 


0P+2 


1402 P0561 


0122 




SAP 


DIV5-*-l 


1403 P0562 


0837 




RAO* 


FLG2 


1404 P0563 


0864 




TCA 


A 


1405 P0564 


6836 


DIV5 


STA* 


OIVIS 


1406 P0565 


0C01 




ENQ 


1 


1407 P0566 


0139 


DIV8 


SAM 


DIV6-*-l 


1408 P0567 


0FA1 




QLS 


1 


1409 P0568 


0FC1 




ALS 


1 


1410 P0569 


6831 




STA* 


OIVIS 


1411 P056A 


COOO 




LOA- 


S 


1412 P056B 


09FE 




INA 


-1 


1413 P056C 


6000 




STA- 


s 


1414 P0560 


6825 




STA* 


FIND 


1415 P056E 


C82C 




LOA* 


OIVIS 


1416 P056F 


18F6 




JMP* 


0IV8 


1417 P0570 


OFCF 


0IV6 


ALS 


.... 15 


1418 P0571 


OFAF 




QLS 


15 


1419 P0572 


6828 




STA* 


OIVIS 



DATE! 10/20/75 



OPERAND 3 

♦ *00 NOT ATTEMPT SIM, 

-0 00 NOT ATTEMPT SIM. 

OPERAND 1 



BOTH REGISTERS = -0 



COMPLEMENT DIVIDEND 



COMPLEMENT DIVISOR 



FIND THE LEFT MOST BIT, 



NUMBER OF TIMES TO SHIFT 



01370 
01371 
01372 
01373 
01374 
01375 
01376 
01377 
0137S 

01379 
01380 
01381 

01382 
01383 
01384 
01385 
01386 
01387 
01388 
01389 
01390 
01391 
01392 

01393 
01394 
01395 
01396 
01397 
01398 
01399 
01400 
01401 
01402 
01403 
01404 
01405 
01406 
01407 
01408 
01409 
01410 
01411 
01412 
01413 
01414 
01415 
01416 
01417 
01418 
01419 



r 



/" 



r 
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c 



o 



o 
o 
o 

Q 



o 
o 
o 
o 
o 
o 
o 
o 
o 



COHOOi 




PAGE 


35 DATE 


1*20 P0573 


*82* 




STQ* 


P0SI2 


1*21 P057* 


C827 


0IV11 


LDA» 


C1VN02 


1*22 P0575 


9825 


^ 


SUB* 


OIVIS 


1*23 P0576 


0121 




SAP 


1 


1*2* P0577 


1828 




JMP* 


DIVIO 


1*25 P0578 


6823 




STA* 


0VN02 


1*26 PQ579 


cam 




LDA* 


POSH 


11*27 P057A 


B81A 




EOR* 


QUOT1 


li*Z& P0578 


6819 




STA* 


QUOT1 


1*29 P057C 


C819 




LOA* 


P0SI2 


1*30 P057D 


8818 




EOR* 


QUOT2 


11*31 P057E 


6917 




STA* 


QU0T2 


1*32 P057F 


OAOF 




ENA 


15 


1*33 P0580 


900D 




SUB- 


s- . 


1*3* P0581 


0111 




SAN 


1 


1*35 P0582 


1821 




JMP* 


XXX 


1*36 P0583 


C819 


DIV12 


LOA* 


OVNOl 


1*37 P058* 


E817 




LOQ* 


OVND2 


1*38 P0585 


0FE1 




LLS . 


1 .'•-- 


1*39 P0586 


AOOO 




AND 


=N$FFFE 


P0587 


FFFE 








1**0 P0588 


681* 




STA* 


OVND1 


1**1 P0589 


*812 




STQ* 


DVN02 


1**2 P058A 


C80C 




LOA* 


POSH 


1**3 P0588 


E80C 




LOQ* 


P0SI2 


1*** P058C 


OFFO 




LLS 


16 


li*l*5 P0580 


OFEF 




LLS 


15 


1**6 P058E 


*809 




STQ* 


P0SI2 


1**7 P058F 


6807 




STA» 


POSH 


1**8 P0590 


DOOD 




RAO- 


S 


1**9 P0591 


1RE2 




JMP* 


OIV11 


1*50 P0592 


0001. 




BSS 


FIN0<1> 


1*51 P0593 


0001 




BSS 


DIVFAUfll 


1*52 P059* 


0001 




BSS 


QUOT1C11 .QUOT2U1 


P0595 


0001 








1*53 P0596 


0001 




BSS 


PPSIKll ,P0SI2I1) 


P0597 


0001 








1*5* P0598 


0001 




BSS 


FLGlfl),FLG2tl) 


P0599 


0001 








1*55 P059A 


0001 




BSS 


DIVIS(I) ,0VN02(1» 


P059B 


0001 








P059C 


0001 








1*56 P059O 


0930 P 


ST62 


ADC 


ST ORE +2 


1*57 P059E 


09 3E P 


ST63 


ADC 


ST ORE* 3 


1*58 P059F 


OAOF 


OIV10 


ENA 


15 


1*59 P05A0 


900D 




SUB- 


S 


1*60 P05A1 


0101 




SAZ 


1 


1*61 P05A2 


18E0 




JMP* 


OIV12 


1*62 P05A3 


E8F7 


XXX 


loq* 


OVN02 


1*63 P05A* 


CSEO 




LOA* 


FIND 


1*6* P05A5 


0901 




INA 


1 


1*65 P05A6 


0103 


FIN03 


SAZ 


FIN02-*-l 


1*66 P05A7 


OFAF 




QLS 


15 



60220200 



***************************** 



STORE REMAINOER 



01*20 
01*21 
01*22 
01*23 
01*2* 
01*25 
01*26 
01*27 
01*28 
01*29 
01*30 
01*31 
01*32 
01*33 
01*3* 
01*35 
01*36 
01*37 
01*38 
01*39 

01**0 
01**1 
01**2 
01**3 
01*** 
01**5 
01**6 
01**7 
01**8 
01**9 
01*50 
01*51 
01*52 

01*53 

01*5* 

01*55 



01*56 
01*57 
01*58 
01*59 
01*60 
01*61 
01*62 
01*63 
01*6* 
01*65 
01*66 
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c 



COMOOi 




PASE 


36 OJ 


li»67 P05A8 


0901 


';--. 


INA 


1 


1468 P05A9 


18FC 




JNP» 


FIN03 


. ^469 .PQ5AA 


4CJC. 


■ J r IND2 .,.., 


STO» 


.»...,.. IST6il_ 


1470 P05AB 


OAOO 




ENA 





1471 P05AC 


68E6 




STA* 


DXVFAU 


. ,^1472 P05AO 


C8E7,. 


DIVB3 


1.0 A? 


QU0T2 _ 


1473 *$5AE 


E8E5 




LOO* 


iJUOTl 


1474 POSAP 


4C36 


fi;h'. 


STO» 


!*T60* 


... 1475 P05B0 


01.71 




sqn 


1. 1- : 


1476 P05B1 


0102 




SAZ 


2 


1477 P05B2 


D8E0 




RAO* 


DIVFAU 


. 1478 P05B3 


1815 




JMP» 


OIV3 


1*79 PQ5B4 


C8E3 




LOA» 


FLG1 


1480 P05B5 


0117 




SAN 


DIVB-»-l 


Lt: .1431 P05B6 


CSE2 


:-..l*.:J. .. '... 


LftA» 


" -•'■■■ FL62 ■■i...~: i .. 


1482 P05B7 


0111 




SAN 


1 


1483 P05B8 


1810 




JMP» 


OIV3 


1484_e,05Jl9 


CC2C 


..,_..., 


XO.A1 


._ XSI60J „ ,.„ „ 


•*■■ 1485 P05BA 


0864 




TCA 


.; ft :'./:.:,f ;■;: - -i-. .;■■-.. 


I486 P058B 


6C2A 




STA» 


IST60I 


.... 1487. P05BC 


180C 




JHP» 


DIV3 


1488 P05BD 


B8DB 


OtVB 


EOR» 


FLG2 


1489 P05BE 


0113 




SAN 


0IVB2-»-l 


1490 P05BF 


CC27 




LOA» 


IST611 


1491 P05CO 


0864 


•*•• ■ ■ , ■ • 


TCA 


■ ■■ A 


1492 P05C1 


1806 




JMP» 


OIV01 


1493 P05C2 


EC 23 


0IVB2 


LOQ» 


.. CST60I 


1494 P05C3 


0852 




TCQ 


Q 


1495 P05C4 


4C21 




STQ» 


IST60I 


1496 P05.C5 


CC21 




LOA* 


„ <$T61» 


1497 PD5C6 


.0864 




TCA 


A 


1498 P05C7 


6C1F 


0IV91 


STA» 


- *ST6t* 


1499 P05C8 


CODE 


JJt¥3 ,, 


LBA- 


. ,^„.OP.,.,.- :■■. ■ 


1500 P05C9 


EOOF 




LDQ- 


OP»l 


1501 P05CA 


01A0 




SOV 





_ 1502 PO5C0 3Q.Eft_ 




OVI~ 


OP*2 


1503 P05CC 


6C88 




STA» T 


IST62I 


150«» P05CD 


4CO0 




STQ» 


IST63I 


1505 P05.CE 


C8C4 


^ ^;^ f ■/;_ 


LDA» 


QIVFAU .. 


1506 P05CF 


0104 




SAZ 


0IV3X-»«»1 


1507 P05O0 


01A2 




SOV 


DIV3H-»-l 


1508 P05O1 


0C22 


DIV3Z 


ENQ 


$22 


1509 P0502 


5C12 




RTJ» 


CSTP61 


1510 P05D3 


180F 


0IV3H 


JMP» 


ENDOI 


.1511 P05D4 


01B3 


QIV3X 


SNO 


0IV3Y-»»1 


1512 P0505 


EOOO 




LOQ 


=N$2203 


P0506 


2203 








1513 P0507 


18F9 


* 


JMP» 


DIV3Z 


1514 P05O8 


CCC5 


0IV3Y 


LOA* 


IST631 


1515 P05D9 


BCOD 




EOR» 


CST611 


„ , 1516_ P05DA 


G103 


.-,. 


saz .■: 


.„_ DI»B-r?-4,. ... 


1517 P05DB 


0C12 


0IV4A~~" 


ENQ 


$12 


1518 P05DC 


5C08 




RTJ» 


CSTP6) 



DATE! 10/20/75 



r~- 



FL61sO, NO 

YES ..'.:. 
FL62sl, YES 
NO,GO OIVIO 

COMPLEMENT QUOTIENT^ 



COMPLEMENT REMAINDER 
COMPLEMENT QUOTIENT 

COMPLEMENT REMAINDER 

OPERAND 1 ' 

OPERAND 2 

DIVIO HITH OPERAND 3 



QsXY,X=ERROR NUMBER »Y=NUMBER OF 



ERROR 



CHECK REMAINDER 

Q* X Y , X* ERRO R NU M8ER It ' Y» NUMBE R OF 



01467 
01468 
01469 
01470 
01471 
01472 
01473 
01474 
01475 
01476 
01477 
01478 
01479 
01480 
01461 
01482 
01483 
01464 
SI 485 
01486 
81487 
01488 
01489 
01490 
01491 
01492 
01493 
01494 
01495 
01496 
01497 
01498 
01499 
01500 
01501 
01502 
01503 
01504 
01505 
01506 
01507 
01508 
01589 
01510 
01511 
01512 

01513 
01514 
01515 
01516. 
01517 
01518 



c 

c 
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L 



o 

o 












o 


COMOOi 




PAGE 


37 


1519 P05DD 


1805 




JMP* 


ENOOI 




1520 P050E 


CCBE 


OIV%B 


LDA» 


(ST62) 




1521 P050F 


BC06 




EOR» 


CST60) 


o 


1522 P05E0 


0101 




SAZ 


1 


1523 P05E1 


18F9 




JNP» 


DIV%A 




152% P05E2 


1C01 


ENDOI 


JHP* 


IEN061 


o 


1526 P05E3 


0031 P 


END6 


ADC 


ENOSEC 




1527 P05E% 


091C P 


STP6 


AOC 


STOP 




1528 P05E5 


093B P 


ST60 


AOC 


STORE 


o 


1529 PQ5E6 


093C P 


ST61 


ADC 


STORE*l 




1531 




******** 


SECTION 


23-STORE PAR 




1533 P05E7 


OCOO 


SPA 


ENQ 





/^~~\ 


153% P05E8 


%822 




STQ» 


CARRR 




1535 P05E9 


%820 




STQ* 


COUNT 




1536 P05EA 


0121 


SPA2 


SAP 


SPAl-»-l 




1537 P05EB 


081F 




RAO» 


CARRR 




1538 P05EC 


0FC1 


SPA1 


ALS 


1 


u 


1539 P05ED 


6CF7 




STA» 


IST60) 


15%0 P05EE 


D81B 




RAO» 


COUNT 




15%1 P05EF 


C81A 




LOA* 


COUNT 


o 


15%2 P05FO 


906F 




SUB- 


CONST«-% 


15%3 P05F1 


0102 




SAZ 


SPA7-*-l 


15%% P05F2 


CCF2 




LDA» 


IST60) 




15%5 P05F3 


18F6. 




JMP» 


SPA2 




15%6 P05F% 


C816 


SPA7 


LDA» 


. CARRR 


o 


15%7 P05F5 


OFCF 




ALS 


15 


15%8 P05F6 


0133 




SAM 


SPA3-*-l 




15%9 P05F7 


0AD1 




EN A ... 


1 . 




1550 P05F8 


6CEC 




STA» 


(ST601 


o 


1551 P05F9 


1803 




JMP* 


SPA% 


1552 P05FA 


OAOO 


SPA3 


EN A 





1553 P05F3 


6CE9 




STA» 


(ST60I 




155% P05FC 


CODE 


SPA% 


LOA- 


OP 


o 


1555 P05FD 


6C9F 




STA* 


(ST62) 


1556 P05FE 


7C9F 




SPA» 


(ST63I 


1557 P05FF 


6CE6 




STA» 


CST61) 




1558 P0600 


BCE% 




EOR* 


(ST601 




1559 P0601 


0101 




SAZ 


SPA5B-»-l 


o 


1560 P0602 


180% 




JMP» 


SPA5A 


1561 P0603 


CODE 


SPA53 


LDA- 


OP 




1562 P060% 


BC99 




EOR» 


CST63) 




1563 P0605 


0102 




SAZ 


ENDSPA-»-l 


o 


156% P0606 


0C12 


SPA5A 


ENQ 


$12 


1565 P0607 


5C0C 




RTJ* 


(STP61 




1566 P0608 


1CDA 


ENOSPA 


JMP» 


<END6) 



DATE! 10/20/75 



CHEC QUOTIENT 



A=«- DERERMINE NUMBER OF DITS SET 



0010 



CLEAR PARITY BIT 



COMPARE PARITY 



COMPARE DATA STORED 
Q=XY,X=£RROR NUMBER ,Y=NUNBER OF 



01519 
01520 
01521 
01522 
01523 
0152% 



01526 
01527 
01528 
01529 



01531 



01533 
0153% 
01535 
01536 
01537 
01538 
01539 
Q15%0 
015%1 
015%2 
015%3 
015%% 
01 5% 5 
015%6 
015%7 
015%8 
015%9 
01550 
01551 
01552 
01553 
0155% 
01555 
01556 
01557 
01558 
01559 
01560 
01561 
01562 
01563 
0156% 
01565 
01566 



o 
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u 



COH001 
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DATE! 10/20/75 



1567 P0609 0001 

1568 P060A 0001 



BSS 
BSS 



>COUNTfl> 
CARRR(l) 



01567 
01568 



1570 



•»••»»•• SECTION 2«»-SET TO OSES A t Q 



01570 



1572 P0608 


OAFF 


SET 


ENA 


-0 


1573 P060C 


6CD8 




STA* 


(ST601 


157«» P060O 


0806 


SET1 


SET 


. A,Q 


1575 P060E 


5C29 




RTJ» 


<INTRZ> 


1576 P060F 


1803 




JNP» 


SET2 


1577 P0610 


0C12 




ENQ 


$12 


1578 P0611 


5CD2 




RTJ* 


<STP6) 


1579 P0612 


1CD0 


SET2 


JMP» 


(END61 



QsXY.X=ERROR NUMBER, V=NUMBER OF 



01572 
01573 
0157* 
01575 
01576 
01577 
01578 
♦♦•01579 



1581 



»••»♦♦•♦ SECTION 25-CLEAR TO ZERO A,Q »*»♦♦»*♦ 



01581 



1583 P0613 


0A00 


CLR 


ENA 





158* P06H» 


6CO0 




STA» 


(ST60I 


1585 PQ615 


CODE 




LOA- 


OP 


1586 P0616 


EOOF 




LOQ- 


OP+1 


1587 P0617 


08*»6 


CLR1 


CLR 


A,Q 


1588 P0618 


5C1F 




RTJ» 


IINTRZ) 


1589 P0619 


.1803 




JNP» 


CLR2 


1590 P061A 


0C12. 




ENQ 


$12 


1591 P061B 


5CC8 




RTJ» 


CSTP6I 


1592 P061C 


0A0<» 


CLR2 


ENA 


CLR1-CLR 


1593 P0610 


1CC5 


CLR3 


JMP» 


(END6I 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



01583 
01581. 
01585 
01586 
01587 
01588 
01589 
01590 
01591 
01592 
•••01593 



1595 



♦♦•••••• SECTION 26-TRANSFER A TO A,Q 



01595 



1597 


P061E 


6CC6 


1598 


P061F 


0826 


1599 


P0620 


5C17 


1600 


P0621 


1803 


1601 


P0622 


0C12 


1602 


P0623 


5CC0 


1603 


P062<» 


1CBE 



TRA 



TRA2 



STA^ 


(ST601 


TRA 


A,Q 


RTJ» 


CINTRZ) 


JMP* 


TRA2 


ENQ 


$12 


RTJ» 


tSTP6> 


JHP» 


(EN06) 



OP IN A. 



Q=XY,X=ERROR NUMBER, V=NUMBER OF 



01597 
01598 
01599 
01600 
01601 
01602 
01603 
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c 



o 



COH001 



1605 



PAGE 39 



DATEt 10/20/75 



♦»»»♦»•» SECTION 27-TRANSFER Q TO A,Q ♦ »»*♦*»«! 



01605 



n 



O 



o 



1607 P0625 E0DE 

1608 P0626 0844 

1609 P0627 4CB0 

1610 P0628 0816 

1611 P0629 5C0E 

1612 P062A 1803 

1613 P0628 0C12 

1614 P062C 5CB7 

1615 P062O 1CB5 



1617 



TRQ 



1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 



P062E 
P062F 
P0630 
P0631 
P0632 
P0633 
P0634 
P0635 
P0636 
P0637 



TRQ2 



LOQ- 


OP 


CLR 


A 


STQ» 


C.ST60) 


TRQ 


A,Q 


RTJ» 


CINTRZ) 


JMP* 


TRQ2 •• 


ENQ 


$12 


RTJ» 


CSTP6! 


JMP» 


. CEND6). 



Q=XV»X=ERROR NUMBER ,Y=NUHBER OF 



•••»•••» SECTION 28-TRANSFER COMPLEMENT A TO A,Q 



TCA 



80 7C 
6C30 
CODE 
0866 
5C05 
1803 
0C12 
5C36 
1C34 
08EF P INTRZ 



TCA? 



TCA3 



EOR- 


HFFFF 


STA* 


<ST70! 


LOA-' 


OP 


TCA 


A,Q 


RTJ» 


(INTRZI 


JNP» 


TCA3 


ENQ 


$12 


RTJ» 


(STP7I 


JHP* 


(EN071 


AOC 


INTREG 



OP. IN A. 



QsXY.XsERROR NUMBER,Y=NUMBER OF 



01607 
01608 
01609 
01610 
01611 
01612 
01613 
016Ui 
01615 



01617 



01619 
01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 
01628 



1630 



»♦*♦*»»♦ SECTION 29-TRANSFER COMPLEMENT Q TO A,Q ********* 



01630 



o 



1632 


P0638 


B07C 


TCQ 


EOR- 


HFFFF 


1633 


P0639 


6C33 




STA» 


IST70) 


1634 


P063A 


EODE 


TCQ2 


LDQ- 


OP 


1635 


P063B 


0856 




TCQ 


A,Q 


1636 


P063C 


5CFA 




RTJ» 


(INTRZ1 


1637 


P0630 


1803 




JMP? 


TCQ3 


1638 


P063E 


0C12 


'... . 


ENQ 


S12 


1639 


P063F 


5C2C 




RTJ» 


CSTP7» 


16<»0 


P0640 


1C2A 


TCQ3 


JMP* 


(EN07I 



OP IN A. 



Q=XY,X=ERROR NUMBER, Y=NUN8ER OF 



01632 
01633 
01634 
01635 
01636 
01637 
01638 
01639 
01640 



1642 



»»»*»♦»» SECTION 2A-TRANSFER THE ARITHMETIC SUM OF A,Q TO A,Q 



01642 



16*4 P0641 80DF AAQ 

16*5 P0642 6C2A 

16*6 P0643 CODE AAQ2 

16*7 P0644 EOOF 

16*8 P0645 0836' 



AOO- 


OP+1 


STA» 


(ST701 


LDA- 


OP 


LDQ- 


OP+1 


AAQ 


A,Q 



OP IN A. 



01644 
01645 
01646 
01647 
01648 



60220200 
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1668 



******** SECTION 2C-TRANSFER LOGICAL PRODUCT OF A,Q TO A,Q 



01666 



1670 


P0 655 


A0OF 


LAQ 


ANO- 


OP+1 


1671 


P0656 


6C16 




STA» 


IST70I 


1672 


P0657 


CODE 


LAQ2 


LDA- 


OP 


1673 


P0658 


EOOF 




LOQ- 


OP+1 


167% 


P0659 


08B6 




: LAO 


A,Q 


1675 


P065A 


5CDC 




RTJ* 


CINTRZ1 


1676 


P0658 


1603 




JMP* 


LAQ3 


1677 


P065C 


0C12 




ENQ 


.. $12 


1678 


P0650 


5C0E 




RTJ* 


(STP7I 


1679 


P065E 


1C0C 


LAQ3 


JMP* 


(EN07) 



OP IN A. 



Q=XY,X=ERROR NUMBER,Y=NUMBER OF 



01670 
01671 
01672 
01673 
0167% 
01675 
01676 
01677 
01678 
01679 



60220200 E 



PAGE %0 



r 



COM001 



16%9 P06%6 5CF0 

1650 P06%7 1803 

1651 P06%8 0C12 

1652 P06%9 5C22 

1653 P06%A 1C20 



AAQ3 



PAGE 


%0 




RTJ* 




CINTRZ) 


JMP* 




AAQ3 


ENQ 




$12 


RTJ* 
JMP* 




(STP7I 

TEND71 



OATEl 10/20/75 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



016*9 
01650 
01651 
01652 
01653 



c 



1655 



******** SECTION 2B-TRANSFER EXCLUSIVE OR OF A,Q TO A, Q ******** 



OP IN A. 



1657 


P06%B 


800F 


EAQ 


EOR- 


OP+1 


1658 


P06%C 


6C20 




STA» 


(ST70) 


1659 


P06%D 


CODE 


EAQ2 


LDA- 


OP 


1660 


P06%E 


EODF 




LOQ- 


OP + 1 


1661 


P06%F 


0876 




EAQ 


A,Q 


1662 


P0650 


5CE6 




RTJ* 


CINTRZ) 


1663 


P0651 


1803 




JMP* 


EAQ3 


166% 


P0652 


0C12 




ENQ 


$12 


1665 


P0653 


5C18 




RTJ* 


(STP7) 


1666 


P065% 


1C16 


EAQ3 


JNP* 


(END7» 



Q=XY, X=ERROR NUMBER, Y=NUNBER OF 



01655 



01657 
01658 
01659 
01660 
01661 
01662 
01663 
0166% 
01665 
01666 



r^ 



k. 



1681 



******** SECTION 20-TRANSFER COMPLEMENT LOGICAL PRODUCT A,Q TO A,Q ••••• 01681 



V_. 



1683 


P065F 


AODF 


168% 


P0660 


B07C 


1685 


P0661 


6C0B 


1686 


P0662 


CODE 


1687 


P0663 


EODF 


1688 


P066% 


08F6 


1689 


P0665 


5CD1 


1690 


P0666 


1803 


1691 


P0667 


0C12 


1692 


P0668 


5C03 


1693 


P0669 


1C01 



CAQ 



CAQ2 



CAQ3 



ANO- 


OP+1 


EOR- 


HFFFF 


STA* 


(ST70! 


LOA- 


OP 


LOQ- 


OP+1 


CAQ 


A,Q 


RTJ* 


IINTRZJ 


JMP* 


CAQ3 


ENQ 


$12 


RTJ* 


(STP7) 


JMP* 


< END 71 



OP IN A. 



Q=:XY,X=ERROR NUMBER, Y^NUMBER OF 



01663 
0168% 
01685 
01686 
01687 
01688 
01689 
01690 
01691 
01692 
01693 



r 



l 



COM001 



PAGE M 



DATEI 10/20/75 



1695 P066A 0031 P END7 

1696 P0663 091C P STP7 

1697 P066C 0939 P ST70 

1698 P066D 08C7 P ST71 

1699 P066E 08CE P ST72 



ADC 


ENOSEC 


ADC 


STOP 


ADC 


STORE 


AOC 


INTNT 


ADC 


ENINT 



INH INT, SAVE H REG 
ENT INT, RESTORE H REG 



01695 

01696 

01697 

»**01698 

**»01699 



o 



c 



1701 



******** SECTION 2E-SET TO ONES-M *****»*» 



01701 



1703 


P066F 


5CFD 


SETM 


RTJ* 


(ST71) 


170** 


P0670 


0AFF 




ENA 


-0 


1705 


P0671 


5033 




RTJ* 


(CHMSK1) 


1706 


P0672 


0801 


SETHI 


SET 


M 


1707 


P0673 


5C30 




RTJ* 


(INTRY) 


1708 


P067<* 


1803 




JMP* 


SETM2 


1709 


P0675 


0C11 




ENQ 


111 


1710 


P0676 


5CF«* 




RTJ* 


(STP7) 


1711 


PQ677 


OA03 


SETH2 


EN A 


SETMi-SETM 


1712 


P0673 


5CF5 


SETHI 


RTJ* 


(ST72I 


1713 


P0679 


1CF0 




JMP* 


(END7) 






CHECK MASK REGISTER (STORE DATA1 



0=XY,X=ERROR NUMBER, Y=NUMBER OF 






01703 
0170*» 
01705 
01706 
01707 
01708 
01709 
01710 
01711 
01712 
01713 



o 
o 
o 



o 



1715 






1716 






1717 






1718 


P067A 


5CF2 


1719 


P0673 


5C29 


1720 


P067C 


0821 


1721 


P0670 


5C26 


1722 


P067E 


1803 


1723 


P067F 


0C11 


172*t 


P0680 


5CEA 


1725 


P0681 


5CEC 


1726 


P0682 


1CE7 


1727 






1728 






1729 






1731 


P0683 


5CE9 


1732 


P068tt 


0821 


1733 


P0685 


0A0O 


173*t 


P0686 


5C1E 


1735 


P0687 


OBki. 


1736 


P0688 


5C1B 


1737 


P0689 


1803 



******** SECTION 2F-TRANSFER A TO H »*»»»*** 



TRAM 



RTJ* 


(ST71) 


RTJ* 


(CHMSK11 


TRA 


M 


RTJ* 


(INTRY) 


JMP* 


TRAM2 


ENQ 


$11 


RTJ* 


(STP7I 


RTJ* 


(ST72) 


JMP* 


(END71 



CK MASK REGISTER, STORE DATA 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



TRAM2 



******** SECTION 30-CLEAR TO ZERO-M »***»♦»» 



CLRM 



9*9 






CLRM1 



RTJ* 


(ST71) 


TRA 


M 


ENA 





RTJ* 


(CHMSK1) 


CLR 


M 


RTJ* 


(INTRY) 


JMP* 


CLRM2 



CHECK MASK REGISTER (STORE DATA) 



01715 
01716 
01717 
01718 
01719 
01720 
01721 
01722 
01723 
0172 «» 
01725 
01726 
01727 
01728 
01729 



*°»Q1731 
***01732 
01733 
0173*» 
01735 
01736 
01737 



-_y 



60220200 
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r~ 
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DATEt 10/20/75 



17*»3 



*»*♦»*** SECTION 31-TRANSFER Q TO H ******** 



017*3 



17*»5 P068E 5CDE TRQH 
17k6 P068F 5C15 
17«f7 P06g0 082? 
17*8 P0691 0811 
17^9 P0692 5C11 

1750 P0693 1803 

1751 PQ69<» 0C11 

1752 P0695 5C05 

1753 P0696 5C07 TRQM2 
175*» P0697 1CD2 



RTJ* 


(ST71I 


RTJ* 


(CHMSK1) 


TRA 


Q 


TRQ 


M 


RTJ* 


(INTRY1 


JMP* 


TRQM2 


ENQ 


$11 


RTJ* 


ISTP7) 


RTJ* 


(ST72I 


JMP* 


(END7I 



CK M REG, STORE DATA 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



*** 
*** 



*** 
*** 



017*5 
017«i6 
017«»7 
017*8 
017*9 
01750 
01751 
01752 
01753 
0175* 



1756 



******** SECTION 32-TRANSFER COMPLEMENT A TO M ******** 



01756 



1772 



******** SECTION 33-TRANSFER COMPLEMENT Q TO M ******** 



01772 



177* P06A5 

1775 P06A6 

1776 P06A7 

1777 P06A8 

1778 P06A9 

1779 P06AA 



5CC7 
B07C 
5CFC 
EOOE 
0851 
5CF8 



TCQM 



TCQM2 



1780 P06A8 1803 



RTJ* 


(ST71) 


EOR- 


HFFFF 


RTJ* 


CCHMSK1) 


LOQ- 


OP 


TCQ 


M 


RTJ* 


(INTRY) 


JMP* 


TCQM3 



CHECK MASK REGISTER (STORE OATA1 



***0177* 
***01775 
01776 
01777 
01778 
01779 
01760 



V... 



1738 P068A 0C11 ENQ $11 

1739 P0683 5CDF RTJ* (STP7) 
17*0 P068C 5CE1 CLRM2 RTJ* CST72I 
17*1 P068O 1CDC JMP* (END7) 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



01738 

01739 

***017*0 

***017*1 



r 



1758 P0698 


5C0«» 


TCAM 


RTJ* 


CST711 


1759 P0699 


B07C 




EOR- 


HFFFF 


1760 P069A 


•5C0A 




RTJ* 


(CHMSK1I 


1761 P0693 


CODE 


TCAM2 


LOA- 


OP 


1762 P069C 


0861 




TCA 


M 


1763 P069O 


5C06 




RTJ* 


(INTRY* 


176* P069E 


1803 




JMP* 


TCAM3 


1765 P069F 


0C11 




ENQ 


$11 


1766 P06AO 


5CCA 




RTJ* 


(STP7) 


1767 P06A1 


5CCC 


TCAM3 


RTJ* 


(ST721 


1768 P06A2 


1CC7 




JMP* 


(END7) 


1769 P06A3 


08FB P 


INTRY 


ADC 


INTM 


1770 P06A* 


0902 P 


CHMSK1 


ADC • 


CHMSK 



*** 

*9* 



CHECK MASK REGISTER (STORE DATA! 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



*** 

*** 



01758 
01759 
01760 
01761 
01762 
01763 
0176* 
01765 
01766 
01767 
01768 
01769 
01770 



^. 



60220200 E 
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COM001 



PAGE «»3 



DATE! 10/20/75 



/"\ 



1781 P06AC 0C11 

1782 P06AD 5CBD 

1783 PQ6AE 5CBF 
178*» P06AF 1CBA 



TCQH3 



ENQ 

RTJ* 

RTJ* 

JMP* 



Sll 

(STP7) 

CST721 

CEND7» 



Q=XY,X=ERROR NUHBER,Y=NUM8ER OF 



01781 

01782 

»»*01783 

***01784 



n 



1786 



»*»***** SECTION 34-TRANSFER ARITHMETIC SUM A,Q TO M »»»»»»»♦ 



01786 



/'"~\ 



,.y 



1788 P06B0 


5CBC 


AAQM 


RTJ* 


IST71I 


1789 P06B1 


80OF 




AOO- 


OP+1 


1790 P06B2 


5CF1 




RTJ* 


(CHMSK1) 


1791 P06B3 


CODE 


AAQM2 


LOA- 


OP 


1792 P06B4 


EOOF 




LDQ- 


OP+1 


1793 P06B5 


0831 




AAQ 


M 


179«t P06B6 


5CEC 




RTJ* 


(INTRY) 


1795 P06B7 


1804 




JMP* 


AAQM1 


1796 P06B8 


QC11 




ENQ 


$11 


1797 P06B9 


5C00 




RTJ 


(STP71 


P06BA 


FFBQ 








1798 P06BB 


5CB2 


AAQM3 


RTJ* 


(ST72I 


1799 P06BC 


1CAO 




JMP* 


(EN07I 



SAVE M, UN *** 

OP IN A *** 

CHECK MASK REGISTER CSTORE OATA1 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



01788 
01789 
01790 
01791 
01792 
01793 
01794 
01795 
01796 
01797 



RESTORE M, EIN 



***01798 
***01799 



1801 



******** SECTION 35-TRANSFER EXCLUSIVE OR A,Q. TO M »•*•»•»• 



01801 



1803 P06BD 


5CAF 


EAQM 


RTJ* 


(ST71) 


SAVE M 


1804 P06BE 


BOOF 




EOR- 


OP+1 


OP 


IN A 


1805 P06BF 


5CE*f 




RTJ* 


(CHMSK1) 




CHECK 


1806 P06C0 


CODE 


EAQM2 


LOA- 


OP 






1807 P06C1 


EODF 




LDQ- 


OP+1 






1808 P06C2 


0871 




EAQ 


M 






1809 P06C3 


5CDF 




RTJ* 


(INTRY) 






1810 P06C4 


1803 




JMP* 


EAQM3 






1811 P06C5 


0C11 




ENQ 


Sll 




Q=XY, 


1812 P06C6 


5C^3 




RTJ* 


(STP8) 






1813 P06C7 


5CA6 


EAQM3 


RTJ* 


(ST72) 


RESTORE M 


1814 P06C8 


1CA1 




JMP* 


(EN07) 







CHECK MASK REGISTER (STORE OATA1 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



**9 



01803 
01804 
01805 
01806 
01807 
01808 
01809 
01810 
Q1811 
01812 
01813 
01814 



1816 



******** SECTION 36-TRANSFER LOGICAL PRODUCT OF A,Q TO M **»»*♦»» 



01816 



r 



1818 P06C9 5CA3 LAQM 

1819 P06CA AOOF 

1820 P06C9 5CD8 

1821 P06CC CODE LAQM2 

1822 P06CD EOOF 

1823 P06CE 08B1 

1824 P06CF 5CD3 



RTJ* 


(ST711 


SAVE M 


ANO- 


OP+1 


OP IN A 


RTJ* 


(CHMSKD 


CHE 


LDA- 


OP 




LOQ- 


OP*l 




LAQ 


M 




RTJ* 


(INTRY) 





CHECK MASK REGISTER CSTORE DATA) 



***01818 
***01819 
01820 
01821 
01 822 
01823 
01824 



■ ^ 
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COH001 



1825 P06D0 1803 

1826 P0601 0C11 

1827 P06O2 5C37 

1828 P06D1 5C9A 

1829 P06D«t 1C34 



LAQM3 



PAGE 


44 


JMP* 


LAQM3 


ENQ 


$11 


RTJ* 


<STP8) 


RTJ» 


(ST72) 


JMP* 


<EN08> 



DATE! 10/20/75 



Q=XY,X=ERROR NUMBER, Y=NUM8ER OF 



01825 

01826 

01827 

•♦•01828 

♦•♦01829 



1831 



•*•♦•♦•• SECTION 37-TRANSFER COMPLEMENT LOGICAL PRODUCT A,Q TO M ♦♦»***» 01831 



1833 


P0605 


5C97 


1834 


P06D6 


AOOF 


1835 


P06D7 


B07C 


1836 


P0608 


5CCB 


1837 


P06D9 


CODE 


1838 


P06OA 


EOOF 


1839 


P0609 


08F1 


1840 


P06OC 


5CC6 


1841 


P0600 


1803 


1842 


P060E 


0C11 


1843 


P06DF 


5C2A 


1844 


P06E0 


5C80 


18«»5 


P06E1 


1C27 



CAQM 



CAQM2 



CAQM3 



RTJ* 


CST711 


SAVE M 


ANO- 


OP*l 


OP 


IN A 


EOR- 


HFFFF 






RTJ* 


<CHMSK1> 




CHECK 


LOA- 


OP 






LOQ- 


OP»l 






CAQ 


M 






RTJ* 


(INTRri 






JMP* 


CAQM3 






ENQ 


$11 




q=xy,: 


RTJ* 


(STP8I 






RTJ* 


(ST72I 


RESTORE M 


JMP* 


(END81 







CHECK MASK REGISTER (STORE OATA) 



Q=XY,X=ERROR NUMBER,Y=NUMBER OF 



♦••01833 




•••01 83% 




01835 


f 


01836 


\. 


01837 




01838 




01839 


f 


01840 


\ 


01841 


01842 




01843 




•••01844 


' 


•♦♦01845 





18tf7 



♦»•♦•♦♦• SECTION 38-TRANSFFR M TO A,Q,M ******** 



01847 



1849 P06E2 5C8A 


TRM 


RTJ» 


(ST71! 


SAVE M 


•••01849 


1850 P06E3 5C5A 




RTJ» 


(CHMSK2) 


CK 


M REG, DATA NOT STORED 


•♦•01850 


1851 P06E4 .0821 




TRA 


M 






01851 


1852 P06E5 5C5A 




RTJ* 


(STOl 




STORE DATA 


01852 


1853 P06E6 080F 




TRM 


A,Q,M 






01853 


1854 P06E7 5C55 




RTJ* 


(IAQMI 






01854 


1855 P06E8 1803 




JMP* 


TRM2 






01855 


1856 P06E9 0C12 




ENQ 


$12 




Q=XY,X=ERROR NUHBER,Y=NUHBER OF 


01856 


1857 P06EA 5C1F 




RTJ* 


<STP8» 






01857 


1858 P06E9 5C82 


TRM2 


RTJ* 


(ST721 


RESTORE H 


♦♦•01858 


1859 P06EC 1C1C 




JMP* 


CEND8I 






••♦01859 



V. 



1861 



1863 P06EO 5C10 

1864 P06EE 5C4F 

1865 P06EF 5C51 

1866 P06FO 5C4F 

1867 P06F1 CODE 

1868 P06F2 0821 

1869 P06F3 EOOF 







39-TRANSFER 


Q+M 


TO 


A,Q,M ******** 


01861 


TRB 


RTJ^ 


CSTP811 






SAVE M 


•••01863 




RTJ» 


(CHMSK2) 






CK M REG, DATA NOT STORED 


•♦•01864 




RTJ* 


(ORU 








01865 




RTJ» 


CSTO) 






STORE OATA 


01866 


TRB2 


LOA- 


OP 








01867 




TRA 


M 








01868 




LOQ- 


OP + 1 








01869 
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f 



u 

o 



COMOOi 



1870 P06F<* 031F 

1871 P06F5 5C»7 

1872 P06F6 1803 

1873 P06F7 0C12 
1871* P06F8 5C11 

1875 P06F9 5C12 

1876 P06FA 1C0E 



TRB3 



PAGE 


«»5 


TRB 


A,Q,M 


RTJ* 


(IAQH) 


JMP* 


TRB3 


ENQ - 


$12 


RTJ* 


<STP8) 


RTJ» 


CSTP82) 


JMP* 


(END81 



DATE* 10/20f75 



Q=XY,X=ERROR NUMBER,Y=NUHBER OF 
RESTORE M 



01870 
01871 
01872 
01873 
0187*» 
•••01875 
*»*01876 



1878 



******** SECTION 3A-TRANSFER COMPLEMENT M TO A,Q,M ******** 



01878 






1880 


P06F9 


5C0F 


1881 


P06FC 


5C»1 


1882 


P06FD 


B0 7C 


1883 


P06FE 


5C»1 


188*» 


P06FF 


CODE 


1885 


P0700 


0821 


1886 


P0701 


081»F 


1887 


P0702 


5C3A 


1888 


P0703 


1803 


1889 


P07Q«f 


0C12 


1890 


P0705 


5C0** 


1891 


P0706 


5C05 


1892 


P0707 


1C01 



TCM 



TCM2 



TCM3 



RTJ» 
RTJ* 
EOR- 
RTJ» 
LOA- 
TRA 
TCM 
RTJ* 
JMP* 
ENQ 
RTJ* 
RTJ* 
JHP* 



(STP811 

CCHMSK2) 

HFFFF 

ISTO) 

OP 

M 

A,Q,M 

(IAQM) 

TCM3 

$12 

ISTP8) 

(STP82I 

(EN08) 



SAVE M 
CK M D 



*** 
*** 



STORE DATA 



Q=XY,X=ERROR NUMBER, r=NUMBER OF 



RESTORE M 



*** 
*** 



01860 
01881 
01882 
01883 
0188«i 
01885 
01886 
01887 
01888 
01889 
01890 
01891 
01892 



( A 



189** P0708 0031 P END8 ADC 

1895 P0709 091C P STP8 ADC 

1896 P070A 08C7. P STP81 ADC 

1897 P0709 08CE P STP82 ADC 



ENDSEC 
STOP 
ININT 
ENINT 



SAVE M REG., INHIBIT INTERRUPTS 
RESTORE M REG, ENABLE INTERRUPTS 



0189<t 

01895 

•♦•01896 

♦**01897 



1899 



******** SECTION 3B-TRANSFER COMPLEMENT Q+M TO A,Q,M ********* 



01899 



o 



o 



1901 P070C 


5CFO 


TCB 


RTJ* 


CSTP81) 


1902 P070D 


5C31 




RTJ* 


(CHMSK3) 


1903 P070E 


CODE 


TC81 


LOA- 


OP 


190*f P070F 


5C31 




RTJ* 


tORl) 


1905 P0710 


B07C 




EOR- 


HFFFF 


1906 P0711 


5C2E 




RTJ* 


ISTO) 


1907 P0712 


EODE 


TCB2 


LOQ- 


OP 


1908 P0713 


CODF 




LDA- 


OP + i 


1909 P071<» 


0821 




TRA 


M 


1910 P0715 


085F 




TCB 


A,Q,M 


1911 P0716 


5C26 




RTJ* 


CIAQM) 


1912 P0717 


1803 




JMP* 


TCB3 


1913 P0718 


0C12 




ENQ 


$12 



CK M REGISTER SIZE 



STORE OATA 



*** 



Q=XY,X=ERROR NUMBER, Y=NUMBER OF 



01901 
01902 
01903 
0190** 
01905 
01906 
01907 
01908 
01909 
01910 
01911 
01912 
01913 



o 



60220200 E 
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cor 


1001 






PAGE 


*6 




191* 


P0719 


5CEF 






RTJ* 




(STP8) 


1915 


P071A 


5CF0 




TC83 


RTJ* 




(STP82) 


1916 


P0713 


1CEC 






JMP* 




<END8» 


1917 


P071C 
P071O 


1«»00 
0032 


P 




JMP* 




SPCEND 



OATEI 10/20/75 



RESTORE M REG 



0191V 
•♦♦01915 
♦♦♦01916 

01917 



1919 



******** 



SECTION 3C-TRANSFER ARITHMETIC SUM A,M TO A,Q,M 



******** 



01919 



V 



1921 


P071E 


5CEB 


1922 


P071F 


5C1E 


1923 


P0720 


80DF 


192«i 


P0721 


5C1E 


1925 


P0722 


CODE 


1926 


P0723 


0821 


1927 


P072* 


CODF 


1928 


P0725 


082F 


1929 


P0726 


5C16 


1930 


P0727 


1803 


1931 


P0728 


0C12 


1932 


P0729 


5C0F 


1933 


P072A 


5CE0 


193V 


P0723 


1COC 



AAM 



AAM2 



AAM3 



RTJ* 


(STP81) 


SAVE M ♦♦♦01921 


RTJ* 


(CHMSK2) 


CK 


M REG, DATA NOT STORED ♦♦•01922 


AOO- 


OP+l 




01923 


RTJ* 


<STO) 




STORE DATA 0192% 


LDA- 


OP 




01925 


TRA 


M 




01926 


LDA- 


OP+i 




01927 


AAM 


A,Q.,M 




01928 


RTJ* 


(IAQMI 




01929 


JMP* 


AAH3 




01930 


ENQ 


$12 




Q=XY,X=ERPOR NUMBER, Y=NUMBER OF 01931 


RTJ* 


<STP8) 




01932 


RTJ* 


(STP82) 


RESTORE M ♦♦♦01933 


JMP* 


(END81 




••♦0193% 



1936 



******** SECTION 30-TRANSFER ARITHMETIC SUM A,Q+M TO A,Q,M ******** 



01936 



1938 


P072C 


5CDD 




AAB 


RTJ* 


1939 


P072D 


5C10 






RTJ* 


19*0 


P072E 


5C12 






RTJ* 


19*1 


P072F 


80E0 






ADD- 


19*2 


P0730 


5C0F 






RTJ* 


19*3 


P0731 


COOE 




AAB2 


LDA- 


19** 


P0732 


0821 






TRA 


19*5 


P0733 


EODF 






LOQ- 


19*6 


P073V 


COEO 






LDA- 


19*7 


P0735 


083F 






AAB 


19*8 


P0736 


5C06 






RTJ* 


19*9 


P0737 


1803 






JMP* 


1950 


P0738 


0C12 






ENQ 


1951 


P0739 


5CCF 






RTJ* 


1952 


P073A 


5CO0 




AAB3 ■ 


RTJ* 


1953 


P073B 


1CCC 






JMP* 


195* 


P073C 


08D6 


P 


IAQM 


ADC 


1955 


P0730 


0909 


P 


CHMSK2 


ADC 


1956 


P073E 


090E 


P 


CHMSK3 


ADC 


1957 


P073F 


0915 


P 


STD 


ADC 


1958 


P07*0 


08E7 


P 


OR1 


ADC 



CSTP81) 

(CHMSK2) 

tORl) 

OP+2 

(STD) 

OP 

M 

OPfl 

OP+2 

A,0,M 

CIAQMl 

AAB3 

$12 

(STP8) 

(STP82) 

(ENDS) 

INAQH 

CHMSKA 

CHMSK3 

STDATA 

OR 



SAVE M 

CK M REG, DATA NOT STOREO 



STORE OATA 



**» 
*«* 



Q=XY,X=ERROR NUMBER, Y=NUHBER OF 



RESTORE M 



*** 



01938 
01939 
019*0 
019«»1 
019*2 
019*3 
019** 
019*5 
019*6 
019*7 
019*8 
019*9 
01950 
01951 
01952 
01953 
0195* 
01955 
01956 
01957 
01958 



60220200 E 
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v„- 



L 



(. ) 



COM001 



PAGE k7 



OATEl 10/20/75 



u 



1960 



1962 


P07M 


5CC8 


1963 


PQ7>*2 


5CFA 


196<» 


P07<»3 


BO OF 


1965 


P07M» 


5CFA 


1966 


P07«»5 


cooe 


1967 


P07«f6 


0821 


1968 


P07<»7 


CODF 


1969 


P07<*3 


086F 


1970 


P07^9 


5CF2 


1971 


P074A 


1803 


1972 


P07<*B 


0C12 


1973 


PQ7«»C 


5CBC 


197<» 


PQ7«»Q 


5CBn 


1975 


P07*»E 


1CB9 



*****»*♦ SECTION 3E-TRANSFER EXCLUSIVE OR A„M TO A,Q,M »»•♦»»*» 



EAH 



01960 



EAM2 



EAM3 



RTJ* 


(STP81) 


SAVE M 


♦♦♦01962 


RTJ* 


C5HHSK2) 


CK H REG t OATA NOT STORED 


♦♦♦01963 


EOR- 


OP+1 




0196<» 


RTJ» 


(STOJ 


STORE DATA 


01965 


LDA- 


OP 




01966 


TRA 


M 




01967 


LOA- 


OP+1 




01968 


EAH 


A»CUM 




01969 


RTJ» 


<IAQM> 




01970 


JMP* 


EAM3 




01971 


ENQ 


$12 


Q=XY,X=ERROR NUMBER ,Y=NUHBER 


OF 01972 


RTJ* 


(STP8) 




01973 


RTJ* 


ISTP82) 


RESTORE M 


♦♦♦0197 k 


JMP* 


IEN08) 




♦♦♦01975 



o 



r 

V 



60220200 



PAGE *»7 



n 



COM001 



PASE tf8 



DATEl 10/20/75 



1977 



******** SECTION 3F-TRANSFER EXCLUSIVE OR A ,Q+M TO A,0,M ******** 



01977 



1979 


P07i*F 


5CBA 


1980 


P0750 


5CEC 


1981 


P0751 


5CEE 


1982 


P0752 


BOEO 


1983 


P0753 


5CEB 


198* 


P075* 


CODE 


1985 


P0755 


0821 


1986 


P0756 


EODF 


1987 


P0757 


COEO 


1988 


P0758 


087F 


1989 


P0759 


5CE2 


1990 


P075A 


1803 


1991 


P075B 


0C12 


1992 


P075C 


5C«»2 


1993 


P0750 


5CA0 


199* 


P075E 


1CA9 



EAB 



EAB2 



EAB3 



RTJ* 


CSTP81) 


SAVE M 


•••01979 


RTJ* 


(CHMSK2) 


CK M REG, DATA NOT STORED 


•••01980 


RTJ* 


<0R1) 




01981 


EOR- 


OP+2 




01982 


RTJ* 


<ST01 


STORE DATA 


01983 


LOA- 


OP 




0198* 


TRA 


M 




01985 


LOQ- 


OP+1 




01986 


LOA- 


OP+2 




01987 


EAQ 


A,Q,M 




01988 


RTJ* 


(IAQM1 




•••01989 


JMP* 


EA83 




01990 


ENQ 


J12 


Q=XY,X=ERROR NUMBER ,Y=NUNBER 


OF 01991 


PTJ* 


ISTP9» 




01992 


RTJ* 


(STP82) 


RESTORE M 


•••01993 


JMP* 


(END8) 




•••0199% 



r~ 



1996 



******** SECTION t»0-TRANSFER LOGICAL PRODUCT A,M TO A,Q,M ******** 



01996 



1998 


P075F 


5CAA 


1999 


P0760 


5C0C 


2000 


P0761 


AODF 


2001 


P0762 


5C0C 


2002 


P0763 


CODE 


2003 


P076* 


0821 


200* 


P0765 


COOF 


2005 


P0766 


08AF 


2006 


P0767 


5CD* 


2007 


P0768 


1803 


2008 


P0769 


0C12 


2009 


P076A 


5C9E 


2010 


P076B 


5C9F 


2011 


P076C 


1C9B 



LAM 



LAM2 



LAM3 



RTJ* 


(STP81) 


SAVE M •••01998 


RTJ* 


(CHMSK2I 


CK 


M REG, DATA NOT STOREO •••01999 


ANO- 


OP+1 




02000 


RTJ* 


(STD) 




STORE DATA 02001 


LDA- 


OP 




02002 


TRA 


M 




02003 


Lda- 


OP+1 




0200* 


LAM 


A,Q,M 




02005 


RTJ* 


CIAQMI 




02006 


JHP* 


LAM3 




02007 


ENQ 


$12 




Q=XY,X=ERROR NUMBER,Y=NUMBER OF 02008 


RTJ* 


ISTP8) 




02009 


RTJ* 


CSTP82) 


RESTORE M ••♦02010 


JHP* 


CEND8) 




•••02011 



60220200 E 



PAGE *8 



r 



( ) 



o 



r 



COMOOl 



PAGE <»9 



OATEI 10/20/75 



2013 



******** SECTION 41-TRANSFER LOGICAL PRODUCT A, Q+N TO~A,Q,M ******** 



02013 



2015 


P0760 


5C9C 


2018 


P076E 


5CCE 


2017 


P076F 


5CD0 


2018 


P0770 


AOEO 


2019 


P0771 


5CC0 


2020 


P0772 


CODE 


2021 


P077J 


0821 


2022 


P0774 


EOOF 


2023 


P0775 


COEO 


2024 


P0776 


08BF 


2025 


P0777 


5CC4 


.... 2026 


P0778 


1803 


2027 


P0779 


0C12 


2028 


P077A 


5C24 


.— ..2029 


R077B 


5C8F 


2030 


P077C 


1C8B 



LAB 



LAB2 



LAB 3 



RTJ* 


CSTP81) 


SA 


RTJ* 


(CHMSK2) 


CK 


RTJ* 


(OR1) 




ANO- 


OP + 2 




RTJ* 


<STDJ 




LOA- 


OP 




TRA 


M 




LOQ- 


OP+1 




LDA- 


QP+2 




LAB 


A,Q,M 




RTJ* 


(IAQMI 




JMP* 


LAB3 




ENQ 


$12 




RTJ* 


ISTP9) 




RTJ* 


(STP82J 


RE 


JMP* 


IEN08I 





M 
CK M REG, DATA NOT STOREO 



STORE OATA 



*** 
*** 



Q=XY,X= ERROR NUMBER ,Y=NUMBER OF 



RE5I0RE.il, ,_. 



*** 

*** 



02015 
02016 
02017 
02018 
02019 
02020 
02021 
02022 
02023 
0202<» 
02025 
02026 
02027 
02028 
02029 
02030 



2032 



»******» SECTION 42-TRANSFER COMPLEMENT LOGICAL PRODUCT.. A«M TO A,Q,M *** 02032 



2034 


P0770 5C8C 


CAM 


RTJ» 


ISTPB1I v 


SAVE M 


2035 


P077E 5CBE 




RTJ* 


(CHMSK2) 


CK M REG, DATA 


2036 


P077F AODF 




AND- 


OP+1 




2037 


P0780 B07C 




EOR- 


HFFFF 




2038 


P0781 5CBD 




RTJ* 


(STD) 


STORE OATA 


2039 


P0782 CODE 


CAM2 


LOA- 


OP 




20<t0 


P0783 0821 




TRA 


M 




2041 


P0784 CODF 




LDA- 


OP+1 




2042 


P0785 08EF 




CAM 


A,Q,M 




. 2043 


P0786 5CB5 




RTJ* 


... (IAQM) 


r 


20*i 4 


P0787 1803 




JMP* 


CAM3 




2045 


P0788 0C12 




ENQ 


$12 


Q=XY,X=ERR 


2046 


P0789 5C15 




RTJ* 


(STP9I 




2047 


P078A 5C80 


CAM3 


RTJ* 


ISTP82) 


RESTORE M 


2048 


P078B icm 




JMP* 


<END9> 





*** 
*** 



*** 

*9* 



02034 
02035 
02036 
02037 
02038 
02039 
02040 
02041 
02042 
02043 
02044 
02045 
02046 
02047 
02048 
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DATE! 10/20/75 



2050 



******** SECTION 43-TRANSFER COMPLEMENT LOGICAL PRODUCT A,Q+M TO A,Q,M ♦ 02050 



2052 


P078C 


5C15 




CAR 


RTJ» 


2053 


P078D 


5C30 






RTJ* 


2054 


P078E 


COOE 




CAB1 


LOA- 


2055 


P078F 


5CB0 






RTJ* 


2056 


P0790 


AOEO 






ano- 


2057 


P0791 


B07C 






EOR- 


2058 


P0792 


5CAC 






RTJ* 


2059 


P0793 


COOF 




CAB2 


LDA- 


2060 


P0794 


0821 






TRA 


2061 


P0795 


EOOE 






LDQ- 


2062 


P0796 


COEO 






LOA- 


2063 


P0797 


08FF 






CAB 


2064 


P0798 


5CA3 






RTJ* 


2065 


P0799 


1803 






JMP* 


2066 


P079A 


0C12 






ENQ 


2067 


P07.9B 


5C03 






RTJ* 


2068 


P079C 


5C06 




CAB3 


RTJ* 


2069 


P079O 


1C02 






JMP* 


2071 


P079E 


091C 


P 


STP9 


ADC 


2072 


P079F 


0031 


P 


END9 


ADC 


2073 


P07A0 


08AO 


P 


STP92 


ADC 


2074 


P07A1 


08C7 


P 


STP93 


AOC 


2075 


P07A2 


08CE 


P 


STPq«» 


AOC 


2076 


P07A3 


088F 


P 


STP95 


ADC 



<STP93> 

(CHMSK3) 

OP 

<OR11 

0P*2 

HFFFF 

tSTD) 

OP*l 

M 

OP 

OP+2 

A,Q,M 

(IAQMI 

CAB3 

m 

CSTP9) 

(STP9M 

CEN091 



STOP 

ENDSEC 

ADERCT 

ININT 

ENINT 

AORERR 



SAVE M 

CK M REG SIZE 



STORE DATA 



**» 
*** 



Q=XY,X=ERROR NUMBER t Y=NUMBER OF 



*** 

*** 



02052 
02053 
02054 
02055 
02056 
02057 
02058 
02059 
02060 
02061 
02062 
02063 
02064 
02065 
02066 
02067 
02068 
02069 



02071 
***02072 
»**02073 
•♦♦02074 
♦•♦02075 
♦♦♦02076 



2078 



******* 



SECTION 44- ADDRESSING CHECKING 



♦•♦02078 



2080 P07A4 


oeoo 


AOR 


NOP 





2081 P07A5 


844 


T86 


CLR 


A 


2082 P07A6 


6CF9 




STA» 


CSTP921 


2083 P07A7 


0A01 




ENA 


1 


2084 P07A8 


60 FE 




STA- 


1-1 


2085 P07A9 


6<t00 




STA* 


1-1 


P07AA 


OOFE 








2086 P07AB 


6<»00 




STA 


1-1 


P07AC 


OOFE 








2087 P07AO 


COFE 




LOA- 


1-1 


2088 P07AE 


09FE 




INA 


-1 


2089 P07AF 


0101 




SAZ 


1 


2090 P07B0 


5CF2 




RTJ* 


(STP95) 



ADDRESSING CHECK 
ZERO ERROR COUNTER 



NO ADDRESS, D NON-ZERO FAILEO. 



♦♦♦02080 
♦♦♦02081 
♦♦♦02082 
♦♦♦02083 
♦♦♦02084 
♦♦♦02085 

♦♦♦02086 

♦♦♦02087 
♦♦♦02088 
♦♦♦02089 
♦♦♦02090 
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c 



\ ) 



( ) 







COM001 


o 


2091 


P07B1 DCEE 




2092 


PQ732 C000 
P0783 0050 


( /-"N 


2093 


P07B4 09AF 


L / 


2094 


P07B5 0101 


\_^ 


2095 


P07B5 5CEC 




2096 


P07B7 0CE8 


^-^ 


2097 


P07B9 C4FE 


U 


2098 


P07B9 9001 


2099 


P07BA 0101 




2100 


P07BB 5CE7 




2101 


P07BC DCE3 


O 


2102 


P07BO C40Q 




P078E OOFE 




2103 


P07BF 09FE 




2104 


P07C0 0101 


fj 


2105 


P07C1 5CE1 


2106 


P07C2 DCDO 


^~^^ 


2107 


P07C3 0C04 




2108 


P07C4 C2FA 


^""\ 


2109 


P07C5 09FE 


f ] 


2110 


P07C6 0101 




2111 


P07C7 5CD8 




2112 


P07C8 DCD7 


i 


2113 


P07C9 0C05 


u 


21H* 


P07CA C200 
P07C3 0002 




2115 


P07CC 09F8 




2116 


P07CO 0101 


/-\ 


2117 


PQ7CE 5CD4 


o 


2118 


P07CF DCDO 




2119 


P07O0 0A04. 




2120 


P07D1 60FF 


/-", 


2121 


P07D2 C1FA 


( ) 


2122 


P07D3 09FE 


^ — y 


. 2123 


P07D4 0101 




2124 


P0705 5CCD 


^_ 


2125 


P07O6 DCC9 


u 


2126 


P0707 0A05 


2127 


P07D8 60FF 




2128 


P07O9 C100 
P07DA 0002 


O 


2129 


P070B 09F8 


L/ 


2130 


P07DC 0101 




2131 


P07DD 5CC5 




2132 


P07DE OCC1 


o 


2133 


P07OF CCOO 
P07E0 00 33 


^ — ^ 


2134 


P07E1 090F 




2135 


P07E2 0101 


/-— \ 


2136 


P07E3 5CBF 


( )■ 


2137 


P07E4 OCBB 


v_y 


2138 


P07E5 0C03 



PAGE 51 



T87 



T88 



T89 



T90 



T91 



T92 



T93 



T94 



T95 



RAO* 


ISTP92) 


LOA 


=N*50 


INA 


-S50 


SAZ 


1 


RTJ* 


(STP951 


RAO* 


(STP92) 


LOA- 


CI-ll 


SUB- 


SI 


SAZ 


1 


RTJ* 


CSTP95) 


RAO* 


(STP92) 


LDA+ 


1-1 


INA 


-1 


SAZ 


1 


RTJ* 


ISTP95I 


RAO* 


(STP92) 


ENQ 


4 


LDA- 


1-5, Q 


INA 


-1 


SAZ 


1 


RTJ* 


(STP95) 


RAO* 


(STP92I 


ENQ 


5 


LOA 


=XDATA6-DATA4,Q 


INA 


-7 


SAZ 


1 


RTJ* 


(STP95) 


RAO* 


ISTP92! 


ENA 


4 


STA- 


I 


LDA- 


1-5,1 


INA 


-1 


SAZ 


1 


RTJ* 


CSTP95) 


RAO* 


ISTP92I 


ENA 


5 , 


STA- 


I 


LOA 


=XDATA6-DATA4,I 


INA 


-7 


SAZ 


1 


RTJ* 


(STP95» 


RAO* 


(STP92) 


LOA 


(OATA00) 


INA 


-$20 


SAZ 


1 


RTJ* 


CSTP95> 


RAO* 


(STP92I 


ENQ 


3 



OATE: 10/20/75 



UPDATE ERROR COUNT 



NO ADORESS, 0=0 FAILED. 
UPOATE ERROR COUNT 



INDIRECT, NOT > FAILED 
UPOATE ERROR COUNT 



INDIRECT, > FAILED 
UPOATE ERROR COUNT 



Q INDEX, NOT > FAILED 
UPDATE ERROR COUNT 



Q INDEX, > FAILED 
UPDATE ERROR COUNT 



I INDEX. NOT > FAILED 
UPDATE ERROR COUNT 



I INDEX, D > FAILED 
UPDATE ERROR COUNT 
DATA 2 



REL.INOR, > FAILEO 
UPDATE ERROR COUNT 



***02091 
♦♦♦02092 

•♦•02093 
•♦♦02094 
•♦•02095 
•••02096 
•••02097 
•••02098 
♦••02099 
***02100 
***02101 
♦♦•02102 

•••02103 
♦♦•02104 
••♦02105 
***02106 
♦♦♦02107 
♦♦♦02108 
♦♦♦02109 
♦♦♦02110 
♦♦♦02111 
♦♦♦02112 
♦•♦02113 
♦••02114 

•♦♦02115 
•♦•02116 
••♦02117 
♦♦♦02118 
♦♦♦02119 
♦♦•02120 
♦♦♦02121 
♦♦♦02122 
♦♦♦02123 
♦♦♦02124 
♦♦♦02125 
♦♦♦02126 
♦♦♦02127 
♦♦♦02128 

♦•♦02129 
♦♦♦02130 
♦♦♦02131 
♦••02132 
••♦02133 

•••02134 
•••02135 
♦•♦02136 
♦♦♦02137 
***02138 
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DATE! 10/20/75 



2139 


P07E6 C6FE 




LDA- 


(I-lltQ 




2140 


P07E7 900«» 




SUB- 


$h 




2141 


P07E8 0101 




SAZ 


1 




2142 


P07E9 5CB9 




RTJ* 


ISTP95) 




2143 


P07EA 0CB5 




RAO* 


CSTP92) 




214*i 


P07E8 0C03 


T96 


ENQ 


3 




21«»5 


P07EC C600 
P07EO 0815 P 




LOA+ 


OATA20,Q 




2i«»6 


P07EE 09AF 




INA 


-$50 




2147 


P07EF 0101 




SAZ 


1 




2148 


P07F0 5CB2 




RTJ* 


(STP951 




2149 


P07F1 OCAE 




RAO* 


CSTP92) 




2150 


P07F2 0C03 


T97 


EN a 


3 




2151 


P07F3 0A01 




ENA 


1 




2152 


P07F<» 60FF 




STA- 


I 




2153 


P07F5 C3FA 




LDA- 


I-5 t B 




2154 


P07F6 09FE 




INA 


-1 




2155 


P07F7 0101 




SAZ 


1 




2156 


P07F8 5CAA 




RTJ* 


<STP95> 




2157 


PQ7F9 DCA6 




RAO* 


(STP921 




2158 


P07FA 0C02 


T98 


ENQ 


2 




2159 


P07FB 0A03 




ENA 


3 




2160 


P07FC 60FF 




STA- 


I 




2161 


P07F0 C300 
P07FE 0002 




LOA 


=XDATA6-DATAIm 


-B 


2162 


P07FF 09F8 




INA 


-7 




2163 


P0800 0101 




SAZ 


1 




2164 


P0801 5CA1 




RTJ* 


CSTP95) 




2165 


P0802 DC90 




RAO* 


ISTP92) 




2166 


P0803 OA05 


T99 


ENA 


5 




2167 


P0804 60FF 




STA- 


I 




2168 


P0805 C90E. 




LOA* 


DATA00,I 




2169 


P0806 09AF 




INA 


-$50 




2170 


P0807 0101 




SAZ 


1 




2171 


P0808 5C9A 




RTJ* 


(STP95) 




2172 


P0809 0C96 




RAO* 


ISTP92) 




2173 


P080A QA04 


T100 


ENA 


k 




2174 


P080B 60FF 




STA- , 


I 




2175 


P080C C900 
P080O 0006 




LOA 


DATA00,I 




2176 


P080E 09BF 




INA 


-$«»0 




2177 


P080F 0101 




SAZ 


1 




2178 


P0810 5C92 




RTJ* 


(STP95I 




2179 


P0811 0C8E 




RAO* 


(STP92I 




2180 


P0812 1809 




JMP* 


T101 





INOR, Q INDEX, 
UPDATE ERROR COUNT 



INOR, Q INDEX, 
UPDATE ERROR COUNT 



•••02139 
♦♦♦02140 
♦♦♦02141 
D NOT > FAILED ♦♦•021«i2 
♦♦♦02143 
♦♦♦02144 
♦♦♦02145 



D » FAILED 



I AND Q INDEX, 
UPDATE ERROR COUNT 



NOT > FAILED 



I AND Q INDEX, > FAILED 
UPDATE ERROR COUNT 



REL, I INDEX, D NOT > FAILED 
UPDATE ERROR COUNT 



REL, I INDEX, 0=0 FAILED. 
UPDATE ERROR COUNT 



•♦•021*6 
•••02147 
•••02148 
••♦02149 
•••02150 
•••02151 
•••02152 
•♦•02153 
•••02154 
•••02155 
•••02156 
•••02157 
•••02158 
♦••02159 
•♦♦02160 
••♦02161 

•♦♦02162 
♦♦♦02163 
♦♦♦02164 
•••02165 
♦••02166 
♦♦♦02167 
♦•♦02168 
♦♦♦02169 
••♦02170 
♦••02171 
•••02172 
•••02173 
••♦02174 
•♦♦02175 

♦•♦02176 
♦••02177 
••♦02178 
♦♦♦02179 
♦♦♦02180 



2182 


P0813 


0815 


P DATAOO 


ADC 


DATA20 


2183 


P0814 


FFFF 


OATA10 


NUM 


-0 


2184 


P0815 


0020 


DATA20 


NUM 


$20 



♦•♦02182 
♦♦♦02183 
♦♦♦0218* 
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C ' 





COH001 




PAGE 


53 




2185 


P0816 0030 


DATA30 


NUM 




$30 


2186 


P0817 0040 


DATA<» 


NUM 




$40 


2187 


P0818 0050 


0ATA5 


NUM 




$50 


2188 


P0819 0060 


DATA6 


NUM 




$60 


2189 


P081A 0819 P DATA7 


AOC 




DATA6 



DATE! 10/20/75 



♦♦♦02ift5 
♦♦♦02186 
♦♦•02187 
•••02188 
•••02189 



-^y 



2191 


P0813 


0A03 


2192 


P081C 


60FF 


2193 


P081D 


C5FE 


2194 


P081E 


900<» 


2195 


P081F 


0101 


2196 


P0820 


586F 


2197 


P0821 


D87F 


2198 


P0822 


OAFC 


2199 


P0823 


60FF 


2200 


P0824 


C900 




P0825 


FFF3 


2201 


P0826 


09CF 


2202 


P0827 


0101 


2203 


P0828 


5867 


2204 


P0829 


0877 


2205 


P082A 


OCOQ 


2206 


P082B 


CADE 


2207 


P082C 


09DF 


2208 


P082D 


0101 


2209 


P082E 


5861 


2210 


P082F 


0871 


2211 


P0830 


OCFC 


2212 


P0831 


CAOO 




P0832 


FFE6 


2213 


P0833 


09CF 


2214 


pass** 


0101 


2215 


P0335 


585A 


2216 


P0836 


086A 


2217 


P0837 


0C03 


2218 


P0838 


CEDA 


2219 


P0839 


09AF 


2220 


PQ83A 


0101 


2221 


P0 83B 


5354 


2222 


P083C 


D86<f 


2223 


P0330 


OCFC 


2224 


P033E 


CEOO 




P083F 


FFOA 


2225 


P084Q 


09CF 


2226 


P0841 


0101 


2227 


P0842 


584D 


2228 


P0343 


0850 


2229 


P0844 


0C60 


2230 


P0345 


0AA2 



T101 



T102 



T103 



T104 



T105 



T106 



T107 



ENA 


3 


STA- 


I 


LOA- 


(I-lltl 


SUB- 


$k 


SAZ 


1 


RTJ* 


AORERR 


RAO* 


AOERCT 


ENA 


-3 


STA- 


I 


LOA 


0ATA6,I 


INA 


-$30 


SAZ 


1 


RTJ* 


AORERR 


RAO* 


AOERCT 


ENQ 


$B 


IDA* 


T104UQ 


INA 


-$20 


SAZ 


1 


RTJ* 


AORERR 


RAO* 


AOERCT 


ENQ 


-$3 


LOA 


0ATA6,Q 


INA 


-$30 


SAZ 


1 


RTJ* 


AORERR 


RAO* 


AOERCT 


ENQ 


■ 3 - 


LOA* 


(OATA00I ,Q 


INA 


-$50 


SAZ 


1 


RTJ* 


AORERR 


RAO* 


ADERCT 


ENQ 


-3 


LOA 


CDATA71 ,Q 


INA 


-$30 


SAZ 


1 


RTJ* 


AORERR 


RAO* 


AOERCT 


ENQ 


$60 


ENA 


-$50 



INOR, I INDEX, NOT > 
UPDATE ERROR COUNT 



♦♦♦02191 
♦♦♦02192 
•♦♦02193 
♦♦♦02194 
♦♦♦02195 
FAILED ♦♦♦02196 
♦♦♦02197 
♦♦♦02198 
♦♦♦02199 
♦♦♦02200 



INOR, I INDEX, D > FAILED 
UPDATE ERROR COUNT 



REL, Q INOEX, D NOT > FAILED 
UPDATE ERROR COUNT 



REL, Q INOEX, D 
UPOATE ERROR COUNT 



> FAILED 



REL, INOR, Q, D NOT > FAILED 
UPDATE ERROR COUNT 



REL, INOR, Q, D > FAILED 
UPDATE ERROR COUNT 



♦♦♦02201 
♦♦♦02202 
♦♦♦02203 
♦♦♦02204 
♦♦♦02205 
♦♦♦02206 
♦♦♦02207 
♦♦♦02208 
♦♦♦02209 
♦♦♦02210 
♦♦♦02211 
♦♦♦02212 

♦♦♦02213 
♦♦♦02214 
♦♦♦02215 
♦♦♦02216 
♦♦♦02217 
♦♦♦02218 
♦♦♦02219 
♦♦♦02220 
•♦•02221 
♦♦♦02222 
♦♦♦02223 
♦♦♦02224 

♦♦♦02225 
•••02226 
•••02227 
♦♦♦02228 
♦♦♦02229 
♦♦♦02230 



o 
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o 



r~ 



COMOOl 




PAGE 


5* 


2231 P08*6 6QFF 




STA- 


I. 


2232 P08*7 C7FE 




LOA- 


CI-1»,B 


2233 P08*8 900* 




SUB- 


$«♦ 


223* P08*9 0101 




SAZ 


1 


2235 P08*A 58*5 




RTJ* 


AORERR 


2236 P08*9 0855 




RAO* 


AOERCT 


2237 P08*C 0C9F 


T108 


ENQ 


-$60 


2238 P08*0 OA50 




EN A 


$5D 


2239 P08*E 60 FF 




STA- 


I 


22*0 P08*F C700 




LOA* 


0ATA6,B 


P0850 0819 P 








22*1 P0851 09CF 




INA 


-$30 


22*2 P0852 0101 




SAZ 


1 


22*3 P0853 583C 




RTJ* 


AORERR 


22** P085* 08*C 




RAO* 


AOERCT 


22*5 P0855 0A03 


T109 


EN A 


3 


22*6 P0856 60FF 




STA- 


I 


22*7 P0857 COBB 




LOA* 


tDATAOO) ,1 


22*8 P0858 09AF 




INA 


-$50 


22*9 P0859 0101 




SAZ 


1 


2250 P085A 5835 




RTJ* 


AORERR 


2251 P085B 08*5 




RAO* 


AOERCT 


2252 P085C OAFC 


T110 


ENA 


-3 


2253 P085O 60FF 




STA- 


I 


225* P085E CDOO 




LOA 


fDATA7),I 


P085F FPBA 








2255 P0860 09CF 




INA 


-$30 


2256 P0861 0101 




SAZ 


1 


2257 P0862 5820 




PTJ* 


ADRERR 


2258 P0863 0830 




RAO* 


AOERCT 


2259 P086* 0C06 


Till 


ENQ 


6 


2260 P0865 OAFC 




ENA 


-3 


2261 P0866 60FF 




STA- 


I 


2262 P0867 CBAB 




LOA* 


OATA00,B 


2263 P0868 09CF 




INA 


-$30 


226* P0869 0101 




SAZ 


1 


2265 P086A 5825 




RTJ* 


ADRERR 


2266 P086B 0835 




RAO* 


AOERCT 


2267 P086C 0CF9 


T112 


ENQ 


-6< 


2268 P086O 0A03 




ENA 


3 


2269 P086E 60FF 




STA- 


I 


2270 P086F CBOO 




LOA 


DATA7,B 


P0 870 FFA9 








2271 P0871 09 BF 




INA 


-$*0 


2272 P0872 0101 




SAZ 


1 


2273 P0873 581C 




RTJ* 


AORERR 


227* P087* D82C 




RAO* 


AOERCT 


2275 P0875 0C50 


T113 


ENQ 


$50 


2276 P0876 0AB2 




ENA 


-$*D 


2277 P0877 60FF 




STA- 


I 


2278 P0878 CF9A 




LOA* 


(OATAOO) ,B 


2279 P0879 09AF 




INA 


-$50 


2280 P087A 0101 




SAZ 


1 



DATE! 10/20/75 



INOR, I, Q, D NOT > FAILED 
UPDATE ERROR COUNT 



UPDATE ERROR COUNT 



REL, INOR, I,.D NOT > FAILED 
UPDATE ERROR COUNT 



RELt INOR, I, 
UPDATE ERROR COUNT 



> FAILED 



UPDATE ERROR COUNT 



REL, Q, I, > FAILED 
UPDATE ERROR COUNT 



•♦•02231 
•••02232 
***02233 
•••0223* 
♦••02235 
••♦02236 
•♦♦02237 
•••02238 
•••02239 
•••022*0 

••♦022*1 
♦••022*2 
♦••022*3 
•••022** 
♦••022*5 
•••022*6 
•••022*7 
•••022*8 
••♦022*9 
•••02250 
♦♦♦02251 
♦♦•02252 
♦••02253 
•♦•0225* 

••♦02255 
•••02256 
•♦•02257 
•♦♦02258 
♦•♦02259 
•••02260 
♦••02261 
♦•♦02262 
♦♦•02263 
♦♦•0226* 
•♦•02265 
•••02266 
•♦♦02267 
•♦•02268 
♦♦♦02269 
•••02270 

•♦•02271 
♦••02272 
•••02273 
♦••0227* 
•♦•02275 
•••02276 
•♦•02277 
••♦02278 
♦♦•02279 
••♦02280 



f~ 



r 



■r 



r' 
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") 




COM001 


2281 


P087B 


5814 




2282 


P087G 


D824 


-. 


2283 


P087D 


OCAF 


J 


2284 


P087E 


OA40 


y 


2285 


P087F 


60 FF 




2286 


P0880 


CFOO 






PQ381 


FF98 


^\ 


2287 


P0882 


09CF 


J 


2288 


P0883 


0101 




2289 


P0884 


5809 




2290 


P0885 


0818 


\ 


2291 


P0886 


OCFC 




2292 


P0887 


EAOO 






P0883 


FF91 




2293 


P0889 


0D8F 


~\ 


2294 


P088A 


0141 


) 


2295 


P0888 


5304 




2296 


P088C 


0814 




2297 


P088O 


1800 






PQ88E 


F7A2 



Till* 



T115 



PAGE 


55 


RTJ* 


ADRERR 


RAO* 


ADERCT 


ENQ 


-$50 


ENA 


$40 


STA- 


I 


LDA 


CDATA7) ,B 


INA 


-$30 


SAZ 


1 


RTJ* 


AORERR 


RAO* 


AOERCT 


ENQ 


-3 


LOQ 


DATA7,Q 


INQ 


-$40 


SQZ 


1 


RTJ* 


AORERR 


RAO* 


AOERCT 


JMP 


ENOSEC 



DATE! 10/20/75 



REL,INOR,Q,I,D NOT = FAILED 
UPDATE ERROR COUNT 



REL, INDR, Q, I, > FAILED 
UPDATE ERROR COUNT 



LOQ, Q INDEX 
UPDATE ERROR COUNT 



> FAILED 



***02281 
***02282 
•••02283 
♦♦•02284 
***02285 
••♦02286 

•••02287 
•••02288 
•••02289 
•••02290 
•♦•02291 
♦♦•02292 

♦••02293 
♦••02294 
•♦•02295 
•♦♦02296 
•••02297 



o 



2299 


P088F 0000 


ADRERR 


NUM 





REPORT ARDR ERROR 


2300 


P0890 CB10 




LOA» 


AOERCT 


ERROR COUNT 


2301 


P0891 £800 
P0892 F7C7 




LDQ 


SEC 


SECTION NUMBER 


2302 


P0893 0FA8 




QLS 


8 




2303 


P0894 0834 




AAQ 


A 




2304 


P0895 6807- 




STA^ 


ADRET1 


SET SSEE 


2305 


P0896 C8F8 




LOA^ 


ADRERR 




2306 


P0897 6806 




STA» 


ADRET2 


SET RETURN AODR 


2307 


P0898 0844 




CLR 


A 




2308 


P0899 5402 




RTJ- 


(STOPX) 


REPORT ADOR, ERROR 


2309 


P089A 1807 




JHP» 


ADRER2 




2310 


P089B 0108 




NUM 


$0108 




2311 


P089C 0000 


ADRET1 


NUM 


< . 


SSEE 


2312 


P089D 0000 


ADRET2 


NUM 





RETURN ADOR 


2313 


P089E 0000 




NUM 







2314 


P089F 0000 




NUM 







2315 


P08A0 0000 


AOERCT 


NUM 





ERROR COUNT 


2316 


P08A1 E800 
P08A2 FFFO 


ADRFR2 


LDQ 


ADERCT 


ERROR COUNT 


2317 


P08A3 EAOO 
P08A4 0005 




LOQ 


ADRPCN, Q 


REPEAT CONDITIONS POIN 


2318 


P08A5 C06F 




LOA- 


BIT4 




2319 


P08A6 5406 




RTJ- 


IJUMP) 


CK FOR RPT COUNOITIONS 


2320 


P08A7 1678 




JMP- 


(H0000) ,Q 


YES 


2321 


P08A8 1CE6 




JMP* 


CAORERR) 


NO- EXIT 


2322 


P08A9 07A5 P 


ADRPCN 


ADC 


T86 




2323 


P08AA 0782 P 




ADC 


T87 





•••02299 
•••02300 
•♦•02301 

♦♦♦02302 
♦♦♦02303 
♦♦♦02304 
♦♦•02305 
♦♦♦02306 
♦♦♦02307 
♦♦♦02308 
♦♦♦02309 
♦♦•02310 
•♦•02311 
♦♦♦02312 
♦••02313 
•••02314 
••♦02315 
•♦♦02316 

•♦♦02317 

♦♦♦02318 
••♦02319 
♦♦♦02320 
••♦02321 
••♦02322 
♦♦•02323 
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232* 


P08AB 07B8 


P 


AOC 


T88 


■ ' 


2325 


P08AC 07BO 


P 


AOC 


T89 




2326 


P08AD 07C3 


P 


AOC 


T90 




2327 


P08AE 07C9 


P 


AOC 


T91 




2328 


P08AF 0700 


P 


AOC 


T92 




2329 


P08B0 0707 


P 


AOC 


T93 




2330 


P08B1 070F 


P 


ADC 


T94 




2331 


P08B2 07E5 


P 


ADC 


T95 




2332 


P08B3 07EB 


P 


AOC 


T96 




2333 


P08B4 07F2 


P 


ADC 


T97 




233«» 


P08B5 07FA 


P 


AOC 


T98 




2335 


P0896 0803 


P 


ADC 


T99 




2336 


P0887 080A 


P 


AOC 


T100 




2337 


P08B8 081B 


P 


AOC 


T101 




2338 


P08B9 0822 


P 


AOC 


T102 




2339 


P08BA 082A 


P 


AOC 


T103 




2340 


P08BB 0830 


P 


AOC 


T104 




2341 


P08BC 0837 


P. 


AOC 


T105 




2342 


P08BO 0830 


P 


AOC 


T106 




2343 


P08BE 0844 


P 


AOC 


T107 




2344 


P08BF 084C 


P 


AOC 


T108 




2345 


P08C0 0855 


P 


AOC 


T109 




2346 


P08C1 085C 


P 


AOC 


T110 




2347 


P08C2 0864 


P 


AOC 


Till 




2348 


P08C3 086C 


P 


AOC 


T112 




2349 


P08C4.0875 


P 


AOC 


T113 




2350 


P08C5 0870 


P 


AOC 


T114 




2351 


P08C6 0886 


P 


AOC 


T115' 




2353 


P08C7 OQOO 


ININT 


NUM 


* 


INHIBIT INT, SA 


2354 


P08C8 0500. 




UN 







2355 


P08C9 6004 




STA- 


TEMPLOC 




2356 


P08CA 080C 




TRM 


A 




2357 


P08CB 680A 




STA» 


INTSVH 


SAVE M REGISTER 


2358 


P08CC C004 




LOA- 


TEMPLOC 




2359 


P08CO 1CF9 




JMP» 


<ININTI 


RETURN 



♦♦♦02324 
♦••02325 
•••02326 
•••02327 
♦••02328 
♦••02329 
•••02330 
•••02331 
•••02332 
•••02333 
♦♦•02334 
•••02335 
•••02336 
♦•♦02337 
•••02338 
•♦•02339 
•••02340 
•••02341 
♦••02342 
•••02343 
•♦•02344 
•••02345 
•••02346 
♦♦•02347 
•♦♦02348 
♦♦♦02349 
♦••02350 
•♦•02351 



•••02353 
•♦•02354 
•••02355 
•••02356 
♦••02357 
••♦02358 
•••02359 



r' 



2361 


P08CE 


0000 


ENINT 


NUM 


* 


2362 


P0 3CF 


6004 




STA- 


TEMPLOC 


2363 


P08O0 


C805 




LOA» 


INTSVM 


2364 


P08O1 


0821 




TRA 


M 


2365 


P08O2 


CO 04 




LDA- 


TEMPLOC 


2366 


P08D3 


0400 




EIN 





2367 


P0804 


1CF9 




JMP^ 


tENINT) 


2368 


P08O5 


0000 


INTSVM 


NUM 






ENABLE INT, RESTORE M REGISTER 



RESTORE M REG 



TURN INTS BACK ON 

RETURN 

M REG SAVE CELL 



•••02361 


r 


•••02362 




•••02363 




•••02364 




••♦02365 


c 


♦♦♦02366 


K 


•••02367 




♦•♦02368 





60220200 E 



PAGE 56 



c 



COMOOi 



PAGE 57 



DATE! 10/20/75 



"*N 



o 



u 



r\ 



2370 
2371 
2372 
2373 
237% 
2375 
2376 
2377 
2378 
2379 
2380 
2381 

2382 

2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
.2 40 Z 
2403 
2404 
2405 
2406 



P08O6 
P08D7 
P08D8 
P08O9 
P08OA 
P08OB 
P08QC 
P08DD 
P08DE 
P08OF 
P08E0 
P08E1 
P08E2 
P08E3 
P08E4 
P08E5 
P08E6 



P08E7 
P08E8 
P08E9 
P08EA 
R08EB 
P08EC 
P08EO 
P08EE 



oooa 

6400 
093C 
4400 
093O 
B860 
0101 
1808 
C850 
885E 
0101 
1804 
080C 
B85B 
0101 
08FO 
1CEF 



0000 
BttOF 
6852 
CODE 
5 8 IE 
AOOF 
B84E 
1CF8 



•STORE THE RESULTS OF INTER-REG 

♦INSTRUCTION ANO COMPARE IT TO 
•KNOWN RESULTS, IF AN ERROR IS 
♦DETECTED RETURN TO PROGRAM 
•SECTION VIA RETURN A0DRESS +1, 
♦IF NO ERROR OCCURS RETURN TO SECTION 
♦VIA NORMAL RETURN AODRESS. 



INAQM 



INAQ2 



OR 



NUM 


. 


STAf 


STORE+1 


STQ* 


. ST0RE*2 


EOR» 


STORE 


SAZ ' 


. 1..- 


JNP^ 


INAQ2 


LOA^ 


STORE 


EOR^ 


ST0RE*2 


SAZ 


1 


JMP» 


INAQ2 


TRM 


A 


EOR^ 


STORE+3 


SAZ 


1 


RAO^ 


INAQM 


JMP^ 


(INAQM) 


IVE OR 


SUBROUTINE 


NUM 





£OR- 


OP*l - 


STA^ 


STORE 


LDA- 


OP 


RTJ? 


, GHH^KA- 


AND- 


OP*l 


EOR^ 


STORE 


JHP^ 


tOP.I 



SUB-ROUTINE FOR OR 



02370 
02371 
02372 
02373 
02374 
02375 
02376 
02377 
02378 
02379 
02380 
02381 

02382 

02383 
02384 
02385 
02386 
02387 
02388 
02389 
02390 
02 391 
02392 
02393 
02394 
02395 
02396 
02397 
02398 
02399 
02400 
02401 
02402 
02 48 3 
02404 
02405 
02406 





2408 




2409 


O ' 


2410 


vJ 


2411 




2412 




2413 


p, 


2414- 


L/ 


2415 




2416 P08EF 


o 






60220 


o 





0000 



♦STORE THE RESULTS OF INTER-REG 
♦INSTRUCTION AND COMPARE IT TO 
♦KNOWN RESULTS, IF AN ERROR IS 

♦OETECTED RETURN TO PROGRAM 

♦SECTION VIA RETURN ADDRESS +1, 

♦IF NO ERROR OCCURS RETURN TO SECTION 

-*VIA NORMAL- RETURN ADDRESS. 



INTRFG 



NUM 



02408 
02409 
02410 
02411 
02412 
02413 
02414 
02415 
02416 



PAGE 57 



n 



COM001 
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DATE! 10/20/75 



2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2416 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 



P08F0 
P08F1 
P08F2 
P08F3 
P08F4 
PQ8F5 
P08F6 
P03F7 
P08F8 
P08F9 
P08FA 
P08F8 
P08FC 
P08FD 
P08FE 
P08FF 
P0900 
P0901 



684C 
48 4C 
B849 
0101 
1805 
C848 
B845 
0111 
1CF6 
D8F5 
1CF4 
0000 
080C 
683F 
B83D 
0101 
D8FA 
1CF9 



P0902 0000 
P0903 E805 
P0904 0151 
P0905 A07O 
P0906 6835 
P0907 1CFA 
P0908 0000 



P0909 0000 
P090A E8F0 
P090B 0151 
P090C A07O 
P090D 1CFB 



P090E 0000 
P090F E8F8 
P0910 0152 
P0911 COOF 
P0912 A07D 
P0913 60DF 
P0914 1CF9 



INTM2 
INTH 



STA* 
STQ» 

EOR* 

SAZ 

JMP* 

LDA» 

EOR* 

SAN 

JMP» 

RAO* 

JMP» 

NUM 

TRM 

ST A* 

EOR* 

SftZ 

RAO* 

JMP* 



STORE+i 

STORE+2 

STORE 

1 

INTM2 

STORE+2 

STORE 

1 

(INTREG) 

INTREG 

(INTREG) 



A 

STORE+1 

STORE 

1 

INTH 

(INTM) 



♦CHECK SIZE OF MASK REGISTER AND STORE OATA 
CHMSK 



MSKFL 

* 

♦CHECK 

» 

CHHSKA 



NUH 

LOQ^ 

SQN 

ANO- 

STA* 

JMP* 

NUM 





MSKFL 

1 

H000F 

STORE 

(CHMSK) 





MASK REGISTER FLAG 
MASK OUT UPPER 12 BITS. 



0=4 BIT MASK, 1=16 BIT MASK 
SIZE OF MASK REGISTER (DATA NOT STORED) 



NUM 

LOQ* 

SON 

AND- 

JMP^ 





MSKFL 

1 

H000F 

(CHMSKA) 



MASK REGISTER FLAG 

4 BIT MASK. MASK OUT UPPER 12. 



♦CHECK SIZE OF MASK REGISTERdF 4 BITS, H^SK OUT UPPER 12 BITS OF OPU ) 

¥ 

CHMSKB 



NUM 

LDQ/> 

SQN 

LDA- 

ANO- 

STA- 

JHP* 





MSKFL 

2 

OP*l 

H000F 

OP*i 

(CHMSKB) 



MASK REGISTER FLAG 
16 BIT MASK REGISTER 

MASK OUT UPPER 12 BITS OF OP+1. 



02417 
02418 
02419 
02420 
02421 
02422 
02423 
02424 
02425 
02426 
02427 
02428 
02429 
02430 
02431 
02432 
02433 
02434 
02435 
02436 
02437 
02438 
02439 
02440 
02441 
02442 
02443 
02444 
02445 
02446 
02447 
02448 
02449 
02450 
02451 
02452 
02453 
02454 
02455 
02456 
02457 
02458 
02459 
02460 
02461 
02462 



r 



r- 



2464 
2465 
2466 



♦STORE DATA ROUTINE 



02464 
02465 
02466 
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COM001 



O 

o 
o 



2467 


P0915 


0000 


2468 


P0916 


6825 


2469 


P0917 


E8F0 


2470 


P0918 


0151 


2471 


P0919 


A07D 


2472 


P091A 


6824 


2473 


P0919 


1CF9 


2475 






2476 






2477 






2478 






2479 






2480 


P091C 


0000 


2481 


P091O 


C400 




P091E 


005A 


2482 


P091F 


0FA4 


2483 


P0920 


0FE3 


2484 


P0921 


0FA8 


2485 


P0922 


F000 




PQ923 


0103 


2486 


P0924 


480C 


2437 


P0925 


680C 


2488 


P0926 


C8F5 


2489 


P0927 


E043 


2490 


P0928 


0FA6 


2491 


P0929 


0172 


2492 


P092A 


9000 




P0928 


0000 


2493 


P092C 


680E 


2494 


P092O. 


0844 


2495 


P092E 


5402 


2496 


P092F 


1CEC 


2497 


P0930 


0000 


2498 


P0931 


0000 



STOATA 



PAGE 


59 


NUM 





STA* 


STORE 


LOQ» 


HSKFL 


SON 


1 


ANO- 


H000F 


STA* 


ST0REf3 


JMP* 


(STDATA) 



DATE! 10/20/75 



♦STOP ROUTINE 

♦ENTER WITH XY IN Q, X=ERROR NUMBER, 

♦ Y=NUMBER OF OATA OISPLAY STOPS 

* 

STOP 



STOP1 



STOP2 



NUM 





LDA* 


SEC 


QLS 


4 


LLS 


8 


QLS 


8 


ADQ 


=N$108 


STQ» 


ST0P2 


STA^ 


STOP2+1 


LOA^ 


STOP 


LDq- 


STJP 


QLS 


6 


SQM 


STOPl-*-l 


SU8 


=XCOM001 


STA» 


INIT01*2 


CLR 


A 


RTJ- 


<STOPX) 


JHP^ 


{STOP! 


NUM 





NUM 






' 


02467 


OATA FOR A,Q 


02468 


CHECK SIZE OF MASK REGISTER. 


02469 


16 BIT MASK 


02470 


4 BIT MASK. 


02 471 


DATA FOR M 


02472 




02473 




02475 




02476 




02477 




02478 




02479 




02480 


f SECTION NUMBER1 


02481 




02482 




02483 




02484 




02485 


, 


♦♦♦02486 




♦♦♦02487 




02488 




02489 


IF BIT 9 (BIAS RETURN ADDRESS) 


02490 


ISNT SET, SUBTRACT BIAS. 


02491 




02492 


RETURN ADDRESS. 


02493 




02494 


MONITOR STOP ROUTINE. 


02495 


EXIT STOP ROUTINE. 


02496 




♦♦♦02497 




♦♦♦02498 



2500 P0932 0A10 

2501 P0933 5406 

2502 P0934 1802 

2503 P0935 1CE6 

2504 P0936 1C00 
P0937 F6F4 



STOP3 



ENA 


S10 




♦♦♦02500 


RTJ- 


(JUMP) 


\ 


♦♦♦02501 


JNP^ 


♦♦2 




♦♦♦02502 


JMP^ 


(STOP) 


CONTINUR 


♦♦♦02503 


JMP 


CENT2) 


REPEAT CONDITIONS 


♦♦♦02504 



2506 


PJJ938 


C8F2- 


INIT01. 


LDAf . 


STOPl-rl 


2507 


P0939 


540A 




RTJ- 


(HEXASC) 


2508 


P093A 


6823 




STA^ 


FREQCNT-2 



( TEST I A) 



02506 
02507 
02508 
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2509 


P093B 


4821 




STQ* 


FREQCNT-3 


2510 


P093C 


E091 




LOQ- 


TSACTV 


2511 


P093O 


C291 




LDA- 


TSFREQ-l.Q 


2512 


P093E 


540A 




RTJ- 


(HEXASC) 


2513 


P093F 


6823 




STA» 


FREQCNT+3 


2514 


P09i»0 
P09M 


COOO 
094C P 




LOA 


=XHEAOING 


2515 


P0942 


0C21 




ENQ 


ENOHEAD- HEADING* 1 


2516 


P0943 


5408 




RTJ- 


(TYPEOUT) 


2517 


P0944 


C049 




LDA- 


INFORM 


2518 


P0945 


A076 




AND- 


BIT11 


2519 


P0946 


68C1 




STA* 


MSKFL RECi 


2520 


P0947 
P0943 


COOO 
0007 P 




LDA 


=XENTER1 


2521 


P09U9 
P094A 


6400 
0005 P 




STA* 


RETURN 


2522 


P094B 


5401 




RTJ- 


(CONTROL1 


2524 


P094C 


8O0A 


HEADING 


NUM - 


J800A 


2525 


P094D 
P094E 
P094F 
P0950 
P0951 
P0952 
P0953 
P0954 
P0955 
P0956 
P0957 


434F 
4030 
3031 
2020 
43 4F 
4040 
414E 
4420 
5445 
5354 
•2E20 




ALF 


X.COM001 COMMAND TEST.X 


2526 


P0958 


8O0A 




NUM 


S800A 


2527 


P0959 

P095A 
P0958 
P095C 
P0950 
P095E 


2049 
4120 
3020 
2020 
2020 
2C20 




ALF 


6, IA = , 


2528 


P095F 
P0960 
P0961 
P0962 


2046 
4320 
3O20 

2020 


FREQCNT 


ALF 


4t FC = 


2529 


P0963 
P0964 
P0965 
P0966 
P0967 
P0968 
P0969 
P096A 
P0968 


2043 
5032 
462C 
2056 
4552 
2E20 
332E 
3120 
3120 




ALF 


X, CP2F, VER. 3.1-1 X 


2530 


P096C 


8O0A 


ENOHEAO 


NUM 


S800A 


2531 




093B P 




EQ.U 


STORE! INIT01+3I 



RECORO MASK SIZE, 



02509 
02510 
02511 
02512 
♦••02513 
02514 

02515 
02516 
02517 
02518 
02519 
02520 

02521 

02522 



02524 
02525 



02526 
02527 



02528 



•♦•02529 



02530 
02531 
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/""*■ 



2532 



ESD 



02532 
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o 
o 



HE QUI VALENCES 
M OEF.LINE NAME VALUE 

0000 I 00FF (0002551 



n 



O 
O 

o 
o 
o 
o 
o 
o 
o 



0015 
0016 

0017 
0018 
0019 
0020 



0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 



CONTRO 
STOPX 

EXIT 
REQINT 
FCLPIN 
JUMP 



GENPAN 

TYPEOU 

TTYBZV 

HEXASC 

OVRLAY 

RELPOS 

MAINL 

SETHAS 

STJP 

LASTVA 

LASTAO 

LDLCOR 

LDL1CO 

INFORM 

SMMCNT 

8IT00 

BIT0 

BIT1 

BIT2 

BIT3 

3IT4 

BIT5 

BIT6 

BIT7 

BIT8 

BIT9 



6022020.0 E 



0001 
0002 

0003 
0004 
0005 
0006 



0007 
0008 
0009 
000A 
000B 
000C 
000O 
0042 
0043 
0044 
0045 
0047 
0048 
0049 
0056 
006B 
006B 
006C 
006D 
006E 
006F 
0070 
0071 
0072 
0073 
0074 



(000001) 
(0000021 

(000033) 
(000004) 
(000005) 
(000006) 



(000007) 
(000008) 
(000009) 
(000010) 
(000011) 
(000012) 
(000013) 
(000066) 
(000067) 
(000068) 
(000069) 
(000071) 
(000072) 
(000073) 
(000086) 
(000107) 
(000107) 
(000108) 
(000109) 
(000110) 
(000111) 
(000112) 
(000113) 
(000114) 
(000115) 
(000116) 



REFERENCED AT LINE NUMBER 

0145, 0149. 0156, 0136. 0231* 0233 

0246, 0248, 2084, 2085, 2086, 2087 

2097, 2102, 2108, 2120, 2121, 2127 

2139, 2152, 2153, 2160, 2167, 2174 

2192, 2193, 2199, 2231, 2232, 2239 

2246, 2253, 2261, 2269, 2277, 2285 

0016, 0092, 0147, 2522 

0017, 0099, 0107, 0173, 0335, 2308 
2495 

0018, 0114 

0019, 0020, 0078 
0079 

0021, 0112, 0137, 0140, 0143, 0469 
0850, 1218, 1226, 1239, 1248, 2319 
2501 

0022, 0075, 0167 

0023, 0024, 0077, 2516 

0025, 0076, 2507, 2512 

0026 

0027 

0028 

0029 

0030, 0031, 0074, 2489 

0032 
0033 
0034 

0035, 2517 

0036, 0073 

0037, 0072 

0038, 0330 
0039 

0040 

0041 

0042, 2318 

0043 

0044 

0045 

0046 

0047 
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0047 


9IT10 


0075 


(000117) , 


, 0048, 


0139 










0046 


BIT11 


0076 


1000118) . 


r 0049, 


2518 










0049 


BIT12 


0077 


(000119) • 


, 0050 












0050 


8IT13 


0078 


(0001201 


, 0051 












0051 


BIT14 


0079 


(000121) 1 


0052 












0052 


BIT15 


007A 


(000122) , 


, 0053, 


0721 










0053 


HOOOO 


007B 


(000123) 


, 0054, 


2320 










0054 


HFFFF 


007C 


(000124) , 


0055, 


0984, 


0987, 


0994, 


1269, 


1275 










t 1379, 


1387, 


139 0, 


1619, 


1632, 


1684 










» 1759, 


1775, 


1835, 


1882, 


1905, 


2037 










, 2057 












0055 


HOOOF 


0070 


(000125) 


, 0056, 
, 2460, 


0712, 
2471 


0739, 


0896, 


2441, 


2451 


0056 


HOOFO 


007E 


(000126) 


» 0057 












0057 


HOFOO 


007F 


(000127) , 


, 0056 












0058 


HFOOO 


0080 


(000128) , 


, 0059 












0059 


HOOFF 


0081 


(000129) , 


, 0060, 


0120, 


0908, 


0933, 


1106, 


1132 


0060 


HFFOO 


0082 


(000130) , 


, 0061, 


0116, 


0913, 


1111 






0061 


HFFFO 


0083 


(000131) 


, 0062 












0062 


HOFFF 


0084 


(000132) 


, 0063 












0063 


HFFOF 


0085 


(000133) 1 


, 0064 












0064 


HFOFF 


0086 


(000134) • 


, 0065 












0065 


H7FFF 


0087 


(000135) , 


0066, 


1207, 


1228, 


1252 






0066 


H7F00 


0088 


(000136) 1 


, 0067 












0067 


H0780 


0089 


(000137) 


r 0068 












0068 


H007F 


008A 


(000138) . 


, 0069 












0069 


H2020 


008B 


(000139) 


, 0070 












0070 


TSACTV 


0091 


(000145) , 


0071, 


2510 










071 


TSFREQ 


0092 


(000146) 1 


, 2511 












0072 


CONST 


006B 


(000107) 1 


0696, 


0791, 


0830, 


0831, 


0869, 


0871 










0911, 


1071, 


1108, 


1163, 


1339, 


1542 


073 


SMHPAR 


0056 


(000086) 














0074 


SJPAR 


0043 


(000067) 














0075 


RANDOM 


0007 


(000007) 














0076 


CONVER 


OOOA 


(000010) 














0077 


MESSAG 


0006 


(000008) 














0078 


REONO 


0004 


(000004) 














0079 


CLRND 


0005 


(000005) 














0080 


TEMPLO 


0004 


(000212) , 


, 0081, 


2355, 


2358, 


2362, 


2365 




0081 


S 


0000 


(000221) , 


0082, 


0187, 


0621, 


0645, 


0646, 


0660 








i 


, 0661, 


0673, 


0695, 


070 8, 


0710, 


0711 








1 


0714, 


0723, 


0735, 


0737, 


0738, 


0741 








i 


0779, 


0786, 


078 7, 


0790, 


0828, 


0835 








1 


, 0860, 


0864, 


0868, 


0875, 


0897, 


0899 








1 


, 0900, 


0980, 


1026, 


1028, 


1053, 


1069 










> 1070, 


1264, 


1332, 


1334, 


1375, 


1411 










, 1413, 


1433, 


1448, 


1459 






0082 


OP 


OOOE 


(000222) 1 


0133, 


0159, 


0161, 


0163, 


0165, 


0169 








1 


, 0189, 


0392, 


0395, 


0398, 


0407, 


0411 








1 


, 0420, 


0424, 


0427, 


0441, 


0446, 


0471 








i 


0472, 


0503, 


0552, 


0568, 


0589, 


0605 



r 
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, 0625, 


0677, 


0755, 


0761, 


762, 


078 2 


, 0783, 


0801, 


0304, 


0808, 


0811, 


0815 


, 0317, 


0962, 


0964, 


0966, 


0969, 


981 


, 0933, 


0989, 


0993, 


0993, 


0999, 


1037 


, 1038, 


1055, 


1056, 


1080, 


1081, 


1092 


, 1094, 


1095, 


1118, 


1121, 


1139, 


1140 


, 1139, 


1192, 


1193, 


1266, 


1272, 


1278 


, 1283, 


1351, 


1352, 


1376, 


1382, 


1384 


, 1389, 


1393, 


1394, 


1401, 


1499, 


150 


, 1502, 


1554, 


1561, 


1585, 


1586, 


1607 


, 1621, 


1634, 


1644, 


16<»6, 


1647, 


1657 


, 1659, 


1660, 


1670, 


1672, 


1673, 


1683 


, 1686, 


1687, 


1761, 


1777, 


1789, 


1791 


* 1792, 


1804, 


1S06, 


1807, 


1319, 


1321 


, 1822, 


1834, 


1837, 


1838, 


1367, 


1869 


, 1884, 


1903, 


1907, 


1908, 


192 3, 


1925 


, 1927, 


1941, 


1943, 


19«f5, 


19<»6, 


1964 


, 1966, 


1968, 


1982, 


1984, 


1986, 


1987 


, 2000, 


2002, 


2004, 


2018, 


2020, 


2022 


, 2023, 


2016, 


2039, 


20H, 


2054, 


2056 


, 2059, 


2061, 


2062, 


2399, 


2401, 


2403 


, 2459, 


2461 











o 
o 



o 



o 
o 
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M S Y M 8 


L S 




M OEF.LINE NAME 


ADDRESS 


0084 


CONOOi 


ooon 


0086 


PARADR 


0004 


0087 


RETURN 


0005 


0088 


EQUIP 


0006 


0089 


ENTER1 


0007 


0097 


PRMST 


OOOC 


0103 


PARAN 


0012 


0104 


HERAT 


0013 


0105 


ENOPAS 


0014 


0110 


PASSCN 


0019 


0111 


CKRPT 


001A 


0115 


CNT 


001E 


0126 


FINSEC 


0029 


0127 


SAVIR 


002A 


0128 


ENT1 


0028 


0129 


ENT2 


002C 


0130 


ENT3 


002D 


0131 


IRTCNT 


002E 


0133 


RPTCNO 


002F 


0135 


ENDSEC 


0031 


0136 


SPCENO 


0032 


0145 


MUX 


003B 


0148 


EN4 


003E 


0150 


EN5 


0040 


0165 


GENOPS 


004F 


0168 


OVGEN 


0053 


017? 


ENOIT 


0056 


0175 


SECENO 


0059 


0176 


SEC 


005A 


0177 


SECRTN 


005B 


0179 


NEXTSE 


005C 


0180 


SAMESE 


005D 


0184 


TRMNTE 


0061 


0189 


QENT2 


0066 


0195 


SECAOO 


006C 


0196 


SECPTR 


006D 


0203 


CON1 


00B2 


0204 


C0N6 


0OB7 


0206 


C0N2 


00C7 


0208 


C0N7 


00D8 


0211 


CON10 


00E9 



REFERENCED AT LINE NUMBER 

, 0098, 2492 

, 0091, 0123, 2521 

, 0084, 2520 . 

, 0086, 0089, 0100, 0106, 0141 

t 11115, 0119 

, 0150 

, 0184 

, 0105 

, 0108 

• 0090, 0113 
, 0121, 0180 
, 0146, 0148 

• 0134, 0138, 0192, 0437 

, 0144, 0170, 0193, 0195, 2504 

» 0151, 0152, 0188 



, 0250, 0433, 0581, 0746, 0955, 1151 

, 1526, 1695, 1894, 2072, 2297 

, 1917 

, 012? 

, 0157 

, 0164 

, 0154 

• 0118, 0179, 0182, 0190, 2301, 2481 

, 0194 

, 0174 
,0124 

, 0181 



, 0191 

• 0158, 0160, 0162 

, 0836, 0839, 0843, 0846, 0853, 0855 

, 0876, 0879, 0890 

, 0726, 0729, 0731, 0829, 0870, 0883 

• 0887, 0892 

• 0699, 0702, 0704 



V... 
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COM001 




0216 


IREG 


QOFB 


0252 


IRFGA 


one 


0318 


IREGE 


015D 


0338 


IREGE1 


0171 


0339 


IREGE2 


0172 


0340 


IREGE3 


0173 


0342 


IRFGE4 


0175 


0343 


IREGE5 


0176 


0344 


IREGE7 


0177 


0345 


. IREGE6 


0178 


0351 


JMP 


017B 


0355 


JHP2 


018C 


358 


JMP4 


0183 


0362 


JHP3 


0187 


0364 


JMP5 


0189 


0368 


RTJ 


016A 


0370 


RTJ4 


018C 


0379 


RTJ5 


0196 


0380 


RTJ7 


0197 


0386 


RTJ3 


0190 


0387 


SAV 


019E 


0391 


LOA 


019F 


0402 


LDA2 


01AA 


0406 


STA 


01A8 


0416 


STA2 


01B5 


0420 


LOQ 


0166 


0431 


LDQ2 


01C1 


0433 


ENOl 


01C2 


0434 


STP1 


01C3 


0435 


ST10 


01C4 


0436 


ST11 


01C5 


0437 


ST12 


01C6 


0441 


STq 


01C7 


0451 


STQ2 


0101 


0455 


SAZ 


0102 


0459 


SAZ2A 


0106 


0461 


SAZ5 


0109 


0464 


SAZ3 


010C 


0<t66 


SAZ4A 


01OE 


0471 


SAZ7 


01E4 


0477 


SAZ6 


01EA 


0478 


SAZ7A 


01EB 


0480 


SAZ7C 


01ED 


0483 


SAZ7B 


01F0 
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, 0196 












, 0238, 


0243, 


0249, 


0316 






• 0222* 


0228, 


0235, 


0255, 


0259, 


0263 


• 0267* 


0271, 


0275, 


0279, 


0283, 


0287 


» 0291* 


0295, 


0299, 


0303, 


0307, 


0311 


• 0315, 


0332, 


0347 








, 0323 












, 0333 












• 0328* 


0331 










, 0319, 


0327, 


345 








, 0320, 


03U6 










, 0218, 


0223, 


0229, 


0236, 


0239, 


0244 


, 0322, 


0324 










. , 0335 












, 0197 












, 0352 












, 0362 












♦ 0355 












, 0358 












, 0197, 


0371 










• 0368, 


0373, 


0376, 


0379, 


0380, 


0382 


, 0375 












. 0378 












, 0369 












, 0372, 


0374, 


0377 








, 0197 












, 0396, 


0399 










, 0197 












, 0410, 


0i»13 










, 0197 












, 0425, 


0428 










, 0364, 


0386, 


0402, 


0416, 


0431, 


0451 


, 0486 












, 0401, 


0415, 


0430, 


0450, 


0458, 


0465 


• 0481, 


0485, 


0493, 


0500 






• 0383, 


0393, 


0408, 


0421, 


0442, 


0473 


, 0504 












, 0381, 


0391, 


0406, 


0409, 


0412, 


0422 


, 0443, 


0444, 


0447, 


0474 






, 0460, 


0467, 


0495, 


0502, 


0526 




t 0197 












, 0445, 


0448 










, 0197 












, 0456 












, 0459, 


0470 










, 0462 












, 0463, 


0466 










, 0475 












, 0476 












, 0478 












, 0477 
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0486 


SAZ8 


01F3 


0490 


SAN 


01F4 


0494 


SAN2 


01F8 


0496 


SAN4 


01FB 


0499 


SAN5 


01FE 


0501 


SAN6 


0200 


0503 


SAN7 


0203 


0509 


SAN8 


0209 


0511 


SAN10 


0208 


0513 


SANENO 


0200 


0517 


SAP 


020E 


0524 


SAP9 


0215 


0525 


SAP11 


0216 


0533 


SAP12 


021F 


0534 


APENO 


0220 


0538 


SAM 


0221 


0543 


SAM3A 


0226 


054<» 


SAM2 


0227 


0546 


SAM4 


0229 


0548 


SAH3 


022B 


0552 


SQZ 


022C 


0559 


SQZ3 


0233 


0560 


SQ.Z2A 


0234 


0564 


ENosaz 


0238 


0568 


SQN 


0239 


0575 


SQN3 


0240 


0576 


SQN2A 


0241 


0579 


ENDSN 


0244 


0581 


EN02 


02«»5 



0582 



0583 



STP2 



ST20 



0246 



n247 



058«» 


ST21 


0248 


0588 


SOP 


0249 


0596 


SQP3 


0251 


0597 


SQP2A 


0252 


0600 


ENDSP 


0255 


0604 


SQH 


0256 


0612 


SQM3 


025E 


0613 


SQM2A 


025F 


0616 


ENOSM 


0262 


0620 


ALS 


0263 


0638 


ENOAL 


0276 


0643 


SHA 


0277 


0644 


SH2 


0278 


0658 


SHQ 


0282 


0659 


SHI 


0283 


0672 


QLS 


0280 


0690 


ENOQL 


02A0 


069«i 


ARSP 


02A1 



0479, 0482, 0483 

0197 

0491 

0494 

0497 

0498 

0501 

0505 

0509 

0506, 0510 

0197 

0521, 0533 

0518, 0525 

0524, 0530 

0197 

05«»0 

0539 

0544 

0543, 0545 

0197 

0563 

0554 

0556, 0559, 0560 

0197 

0570 

0572, 0575, 0576 

0513, 0534, 0548, 0564, 0579, 0600 

0616, 0638 

0508, 0512, 0523, 0532, 0542, 0547 

0558, 0562, 0574, 0578, 0595, 0599 

0611, 0615, 0637 

0517, 0538, 0553, 0569, 0590, 0606 

0626, 0631, 0634 
0520, 0528, 0630, 0633 
0197 

0591 

0593, 0596, 0597 

0197 

0607 

0609, 0612, 0613 

0197 

0632, 0635, 0652 

0627, 0653 
0624, 0648, 0649 
0668, 0679 
0663, 0664, 0676 
0198 

0667, 0684, 0687 
0198 



r~ 



r 
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o 



o 



o 
o 



o 
o 
o 



0697 


APSP5 


02A4 


0708 


ARSP2 


02B2 


0717 


ARSP4 


02BB 


0721 


ARSN 


n2BC 


0724 


ARSN5 


02BF 


0735 


ARSN2 


02GD 


0744 


ARSN4 


0206 


0746 


EN03 


0207 


747 


STP3 


02D8 


07<*8 


ST30 


02O9 



0749 



ST31 



02OA 



0753 


RSHIF 


02OB 


0754 


RSHIF4 


02OC 


0761 


RSHIF3 


02E5 


763 


RSHIF1 


02E7 


0764 


RSHIF2 


02E8 


0774 


RSHIF7 


0?F2 


0778 


LLS 


02F3 


0784 


LLS2 


02FA 


0795 


LLS3 


0306 


0807 


LLStjA 


0312 


0814 


LLS6 


0319 


0815 


LLS4 


031A 


0821 


ENOLL 


0320 


0822 


ST32 


0321 


0823 


ST33 


0322 


0827 


LRS 


0323 


0832 


LRS9 


0329 


0842 


LRS2 


0335 


0849 


LRS 4 


033E 


0853 


LRS3 


0342 


0860 


LRS8 


0340 


0867 


LRS10 


0355 


0872 


LPS11 


035B 


0882 


LRS12 


0367 


0890 


LRS15 


0371 


0896 


LRS16 


0379 


0904 


ENDLR 


0381 


0908 


ENA 


0382 


0916 


ENA8 


038A 


0919 


ENA2 


038E 


0921 


ENA5 


0390 


0927 


ENA7 


0396 


0929 


ENDEA 


0398 


0933 


ENQ 


0399 


0941 


ENQ2 


03A3 


0942 


ENQ4 


03A4 


0943 


ENQ3 


03A5 



, 


0716 












, 


0700, 


0703 










, 


0713 












, 


0198 












« 


0743 












, 


0727, 


0730 










, 


0740 












, 


0690, 


0717, 


0744, 


0774, 


821 




• 


0689, 


0707, 


0734, 


0773, 


0820 




, 


0578, 


68 3, 


0686, 


0705, 


732, 


0766 


t 


0769, 


0816, 


0856 








, 


0681, 


0682, 


0685, 


0698, 


0701, 


0715 


, 


0725, 


0728, 


0742, 


0765, 


767, 


0770 


» 


0818, 


0854 










* 


0198 

0759 

0760 

0768, 

0198 

0781, 

0792 

0802, 

0809, 

0806, 

0797, 


0771 

0789, 

0805 
0812 
0813 
0814 


0794 










0785, 


0793, 


0798, 


0803, 


0833, 


0838 




0863, 


0873, 


0878, 


0901 








0800, 


0807, 


0810, 


0834, 


0842, 


0845 




0865, 


0874, 


0882, 


0836, 


0902 






0198, 


0851 












0866 














0837, 


0840 












0844, 


0859 












0841, 


0848 








, 




0852 














0862 














0903 














0877, 


0880 












0881, 


0889 












0885, 


0888 












0898 














0198 














0912 














0918 












* 


0923, 


0926 










, 


0198 












•* 


0934, 


93 7 












0939, 
0936 


0940 
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0951 


ENQ6 


03AD 


0953 


ENOEQ 


03AF 


0955 


EN04 


03B0 


0956 


STP4 


03B1 



0957 



0958 



ST40 



ST41 



03B2 



03B3 



0961 


AND 


03B4 


0973 


ENOAN 


03C0 


0977 


ADO 


03C1 


0987 


AGAIN 


03CB 


0991 


THIS 


03CF 


0993 


DAM 


03D1 


0998 


OK 


03D6 


1002 


AD012 


03DA 


1010 


AD02 


03E2 


1011 


ADD3 


03E3 


1013 


AD04 


03E5 


1016 


ADD11 


03E8 


1021 


A0D5A 


03EO 


1023 


AD06 


03EF 


1024 


AD07 


03F0 


103«f 


ADD8 


03FA 


1037 


AOD8A 


03FO 


1045 


AOT110 


0405 


1047 


ENOAO 


0407 


1048 


CARR 


0408 


1048 


AA 


0409 


1048 


QQ. 


040A 


1052 


EOR 


Q40B 


1057 


E0R7 


0410 


1062 


EOR2 


0415 


1063 


E0R3 


0416 


1067 


E0R9 


041A 


1068 


E0R4 


MB 


1080 


E0R6A 


0427 


1088 


E0R8 


042F 


1092 


ADQ 


0430 


1094 


AOQ.2 


0432 


1102 


ADQ3 


043A 


1106 


INA 


043B 


1113 


INA3 


0442 


111* 


INA2 


0443 


1119 


INA4 


0449 


1122 


INA5 


0440 


1128 


INA6 


0453 


1132 


INQ 


0454 



0947, 0950 

0904, 0929, 0953, 0973, 1047 

0858, 0895, 0928, 0952, 0972, 1046 



0891 
0944 
1021 
1063 
893 
09«»5 
1042 
0198 
0967 
0198 
0982 
0985 
0990 
0986 
1033 
1004 
1005 
1007 
1010 
1009 
1015 



, 0909, 0914, 0915, 0921, 0924 

, 0948, 0963, 0979, 0991, 1013 

, 1024, 1036, 1040, 1043, 1054 

, 0910, 0916, 0920, 0922, 0925 

, 0946, 0949, 0965, 0968, 1039 



, 0970 

, 0997 

, 0988, 0995 

, 1020 

, 1012, 1017 



V. 



C 



V 



1027 
0992, 1035 



1041 

0978 

1034 

1002 

1003 

0198 

1079 

1059 

1060 

1061 

1066 

1072 

1084, 

0198 

1099 
0198 
1109 
1112 
1114 
1117 
1125 
0198 



♦ 1044 

, 1006, 1008, 1011, 1016, 1019 

, 1029, 1057, 1076 

, 1030, 1058, 1077 



, 1062 
, 1087 
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1141 


INQ3 


045F 


, 1138 




1142 


INQ2 


0460 


» 1135 




1149 


INQ4 


0467 , 


• 1146 




1151 


EN05 


0468 , 


, 1088, 
, 1254 


1102, 


1152 


STP5 


0469 t 


1086, 
, 1198, 
r 1246 


1101, 
1211, 


1153 


ST50 


046A , 


• 1067, 

► 1098, 

, 1124, 

1164, 


1068, 
1107, 
1133, 
1171, 



1154 



ST51 



046B 



1158 


RAO 


046C 


1161 


RAOl 


046F 


1170 


RA02 


0478 


1177 


RA03 


047F 


1187 


SUB 


0486 


1190 


SUB4 


0489 


1192 


SU32 


048C 


1199 


SU83 


0493 


1203 


OVNO 


0494 


1207 


0VN03 


0498 


1213 


OVNOl 


049E 


1217 


OVN02 


04A2 


1220 


0VN04 


04A5 


1225 


0VN05 


04AB 


1228 


OVN06 


04AE 


1235 


0VN07 


0485 


1238 


OVN08 


04B8 


1241 


0VN09 


04BB 


1247 


OVNOA 


04C2 


1254 


OVNOH 


04C9 


1255 


OVERF 


04CA 


1256 


CARRY 


04C3 


1260 


MUI 


04CC 


1288 


MULT4 


04E8 


1310 


ATLAST 


04FE 


1317 


HUH 


0505 


1321 


PROOl 


0509 


1321 


PRO02 


050A 


1322 


MULT1 


050B 


1322 


MULT2 


050C 


1323 


HI 


050O 


1324 


OPER 


050E 


1325 


NEG 


050F 


1326 


Nl 


0510 


1327 


SHIF2A 


0511 



DATE* 10/20/75 



1128, 1149, 1176, 1199 

1127, lli»8, 1169, 1174 

1216, 1224, 1233, 1237 

1073, 1075, 1083, 1093 

1110, 1113, 1115, 1120 

1136, 1143, 1159, 1162 

1177, 1179, 1191, 1195 



1082, 1096, 1097, 1123, 1144, 1145 
1160, 1165, 1166, 1180, 1182, 1194 

0199, 1175 

1183 

1167 

1175 

0199 

1188 

1196 

0199 

1219 

1209 

1212, 1214 

1227 

1222 

1240 

1231 

1234, 1235 

1249 

1244 

1251, 1364 

1204, 1206, 1250 



0199 
1336 
1304 
1306 
1261 
1315 
1262 
1349 
1282 
1263 
1295 
1287 
1265 
1294 
1292 



, 1309, 1312 

, 1296, 1302, 1303, 1308, 1313 

, 1341, 1343, 1347 

, 1316, 1318, 1319, 1344, 1346 

, 1293, 1301, 1327, 1330 

, 1317, 1328, 1331 

, 1298, 1300, 1305, 1311 

, 1288, 1290 

, 1281, 1286, 1337 

, 1297, 1299, 1310 

, 1320 



o 
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1332 


HUI2 


0516 


1347 


HUI5 


0525 


1351 


MUI3 


052B 


1357 


NUIEE 


0532 


1360 


MUI11 


0536 


136<» 


MUI12 


053B 


1368 


OIV 


053C 


1387 


OIV1B 


0551 


1392 


DIV1 


0556 


1393 


DIV2 


0558 


1399 


DIV4 


055E 


1405 


OIV5 


0564 


11*07 


OIV8 


0566 


1417 


0IV6 


0570 


1421 


OIV11 


0571* 


1436 


OIV12 


0583 


1450 


FIND 


0592 


1451 


OIVFAU 


0593 


1452 


QUOT1 


0594 


1452 


QUOT2 


0595 


1453 


POSH 


0596 


1453 


POSI2 


0597 


lh5t* 


FLG1 


0598 


1454 


FLG2 


0599 


1455 


OIVIS 


059A 


1455 


DVN02 


059B 


1455 


OVND1 


059C 


1456 


ST62 


059O 


1457 


ST63 


059E 


1458 


DIVIO 


059F 


1462 


XXX 


05A3 


1465 


FIN03 


05A6 


1469 


FIND2 


05AA 


1472 


0IVB3 


05AO 


1488 


DIVB 


05BD 


1493 


DIVB2 


05C2 


1498 


OIVB1 


05C7 


1499 


OIV3 


05C8 


1508 


DIV3Z 


0501 


1510 


DIV3W 


05O3 


1511 


OIV3X 


0504 


1514 


DIV3Y 


05D8 


1517 


DIV4A 


05OB 


1520 


0IV4B 


05OE 


1524 


ENDDI 


05E2 


1526 


END6 


05E3 


1527 


STP6 


05E4 


1528 


ST60 


05E5 



, 1388, 1391 



, 1338, 1340 

1363 
1356 
1268, 1271, 1274, 1277, 1359, 1362 



0199 
1383 
1385 
1386 
1395 
1402 
1416 
11*07 
1<»<»9 
1461 
137«» 
1471 
1372 
1373 
1371 
1420 
1369 
1370 
1405 
140 



, 1414, 1463 

, 1477, 1505 

, 1427, 1428, 1473 

, 1430, 1431, 1472 

, 1426, 1WZ, 1447 

, 1429, 14V3, 1446 

• 1396, 1479 

, 1403, 1481, 1488 

, 1410, 1W5, 1419, 1422 

, 1421, 1425, 1«»37, 1441, 1462 



^ 



1399, 1«»36, 14«»0 

1353, 1503, 1520, 1555 

1354, 1360, 1504, 1514, 1556, 1562 

142* 
1435 
1468 
1465 

1480 

1489 

1492 

1478, 1483, 1487 

1513 

1507 

1506 

1511 

1523 

1516 

1378 

1524 



, 1381, 1392, 1510, 1519 

, 1566, 1579, 1593, 1603, 1615 



1358, 1509, 1518, 1565, 1578, 1591 

1602, 1614 

13«»8, 1355, 147«f, 1484, I486, 1493 
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/"-> 



n 



O 



O 



1529 



1696 



1697 



ST61 



STP7 



ST70 



05E6 



1533 


SPA 


05E7 


1536 


SPA2 


05EA 


1538 


SPA1 


05EC 


15*6 


SPA7 


05F4 


1552 


SPA 3 


05FA 


1554 


SPA4 


05FC 


1561 


SPA5B 


0603 


1564 


SPA5A 


0606 


1566 


ENOSPA 


0608 


1567 


COUNT 


0609 


1568 


CARRR 


060A 


1572 


SET 


060B 


1574 


SET1 


0600 


1579 


SET2 


. 0612 


1583 


CLR 


0613 


1587 


CLR1 


0617 


1592 


CLR2 


06 1C 


1593 


CLR3 


0610 


1597 


TRA 


061E 


1603 


TRA2 


0624 


1607 


TRQ 


0625 


1615 


TRQ2 


0620 


1619 


TCA 


062E 


1621 


TCA2 


0630 


1627 


TCA3 


0636 


1628 


INTRZ 


0637 


1632 


TCQ 


0638 


1634 


TCQ2 


063A 


16<fQ 


TCQ3 


06<»0 


1644 


AAQ 


0641 


1646 


AAQ.2 


0643 


1653 


AAQ3 


064A 


1657 


EAQ 


064B 


1659 


EAQ2 


0640 


1666 


EAQ3 


0654 


1670 


LAa 


655 


1672 


LAQ2 


0657 


1679 


LAQ3 


065E 


1683 


CAQ 


065F 


1686 


CAQ2 


0662 


1693 


CAQ3 


0669 


1695 


EN07 


066A 



0660 



066C 



1495 
1558 
1350 
1515 
0199 
1545 
1536 
1543 
1548 
1551 
1559 
1560 
1563 
1535 
1534 
0199 



, 1521, 1539, 1544, 1550, 1553 

, 1573, 1584, 1597, 1609 

, 1361, 1469, 1490. 1496, 1498 

, 1557 



, 1540, 1541 
, 1537, 1546 



1576 

0199, 1592 
1592 
1589 

0199 
1600 
1)199 
1612 
0199 

1624 

1575, 1588, 1599, 1611, 1623, 1636 

1649, 1662, 1675, 1689 

0199 

1637 
0199 



1650 
0199 

1663 
0200 

1676 
0200 



1690 

1627, 1640, 1653, 1666, 1679, 1693 

1713, 1726, 1741, 1754, 1768, 1784 

1799, 1814 

1626, 1639, 1652, 1665, 1678, 1692 

1710, 1724, 1739, 1752» 1766, 1782 

1797 

1620, 1633, 1645, 1658, 1671, 1685 
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1698 



1699 



ST71 



ST72 



066D 



066E 



1703 


SETM 


066F 


1706 


SETM1 


0672 


1711 


SETM2 


0677 


1712 


SETM3 


0678 


1718 


TRAM 


067A 


1725 


TRAM2 


0681 


1731 


CLRM 


0683 


1735 


CLRM1 


0687 


17<fO 


CLRM2 


068C 


1745 


TRQM 


068F 


1753 


TRQM2 


0696 


1758 


TCAM 


0698 


1761 


TCAM2 


0690 


1767 


TCAM3 


06A1 


1769 


INTRY 


06A3 


1770 


CHMSK1 


06A% 


177** 


TCQM 


06A5 


1777 


TCQM2 


06A8 


1783 


TCQM3 


06AE 


1788 


AAQM 


0680 


1791 


AAQH2 


06B3 


1798 


AAQH3 


06BB 


1803 


EAQM 


06BD 


1806 


EAQM2 


06C0 


1813 


EAQM3 


06C7 


1818 


LAQM 


06C9 


1821 


LAQM2 


06CC 


1828 


LAQM3 


06D3 


1833 


CAQM 


0605 


1837 


CAQM2 


06D9 


184«t 


CAQM3 


06E0 


1849 


TRM 


06E2 


1858 


TRH2 


06EB 


1863 


TRB 


06EO 


1867 


TR92 


06F1 


1875 


TR83 


06F9 


1880 


TCM 


06FB 


188<» 


TCM2 


06FF 


1891 


TCH3 


0706 


189«» 


EN08 


0708 


1895 


STP8 


0709 


1896 


STP81 


070A 



1703, 1718, 1731, 171*5, 1758, 1774 
1788, 1803, 1818, 1333, 18^9 
1712, 1725, 17«»0, 1753, 1767, 1783 
1798, 1813, 1828, 18«»4, 1858 
0200, 1711 
1711 
170 8 

0200 
1722 
0200 

1737 

0200 
1750 
0200 

176W 

1707, 1721, 1736, 17i»9, 1763, 1779 

179%, 1809, 1824, 18%0 

1705, 1719, 1734, 17W6, 1760, 1776 

1790, 1805, 1820, 1836 

0200 

1780 
0200 

1795 
0200 

1810 
0200 

1825 
0200 

18%1 
0201 
1855 
0201 

1872 

0201 

1888 

1829, 18«»5, 1859, 1876, 1892, 1916 

1934, 1953, 1975, 199%, 2011, 2030 

1812, 1827, 18<»3, 1857, 187%, 1890 

1914, 1932, 1951, 1973, 2009 

1863, 1880, 1901, 1921, 1938, 1962 
1979, 1998, 2015, 2034 



V.-' 
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1897 



STP82 



070B 



f \ 



o 



o 
o 
o 



1901 


TCB 


070C 


1903 


TCB1 


070E 


1907 


TCB2 


0712 


1915 


TC93 


071A 


1921 


AAH 


071E 


1925 


AAM2 


0722 


1933 


AAN3 


072A 


1938 


AA9 


072C 


19*3 


AAB2 


0731 


1952 


AAB3 


073A 


195* 


IAQM 


073C 



1955 

1956 
1957 



1958 



CHMSK2 730 



CHMSK3 
STO 



OR! 



073E 
073F 



07*0 



1962 


EAM 


07*1 


1966 


EAM2 


07*5 


197* 


EAH3 


07*0 


1979 


EAB 


07*F 


198* 


EAB2 


075* 


1993 


EA33 


0750 


1998 


LAH 


075F 


2002 


LAH2 


0763 


2010 


LAM3 


076B 


2015 


LAB 


0760 


2020 


LA32 


0772 


2029 


LAB3 


077B 


203* 


CAM 


0770 


2039 


CAM2 


0782 


20*7 


CAH3 


078A 


2052 


CAB 


078C 


205* 


CAB1 


078E 


2059 


CAB2 


0793 


2068 


CAB3 


079C 


2071 


STP9 


079E 


2072 


END 9 


079F 


2073 


STP92 


07AO 


207* 


STP93 


07A1 


2075 


STP9* 


07A2 


2076 


STP95 


07A3 



2080 



AOR 



07A* 



1875, 1891, 1915, 1933, 1952, 197* 

1993, 2010, 2029, 20*»7 

0201 



1912 
0201 

1930 
0201 

19*9 

185*, 1871, 1887, 1911, 1929, 19*8 

1970, 1989, 2006, 2025, 20*3, 206* 

1850, 186*, 1881, 1922, 1939, 1963 

1980, 1999, 2016, 2035 

1902, 2053 

1852, 1866, 1883, 1906, 19?*, 19*2 

1965, 1983, 2001, 2019, 2038, 2058 

1865, 190*, 19*0, 1981, 2017, 2055 

0201 

1971 
0201 

1990 
0201 

2007 
0201 

2026 
0201 

20** 
J201 



2065 
1992 
20*8 
2082 
2118 
2157 
2052 
2068 
2090 
212* 
216* 
0202 



, 2028, 20*6, 2067 

, 2069 

, 2091, 2096, 2101, 2106, 2112 

, 2125, 2132, 2137, 21*3, 21*9 

, 2165, 2172, 2179 



, 2095, 2100, 2105, 2111, 2117 
, 2131, 2136, 21*2, 21*8, 2156 
, 2171, 2178 
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2081 


T86 


07A5 


2092 


T87 


07B2 


2097 


T88 


07B8 


2102 


T39 


07BD 


2107 


T90 


07C3 


2113 


T91 


07C9 


2119 


T92 


0700 


2126 


T93 


07D7 


2133 


T9»» 


07DF 


2138 


T95 


07E5 


21**«t 


T96 


07EB 


2150 


T97 


07F2 


2158 


T98 


07FA 


2166 


T99 


0803 


2173 


T1O0 


080A 


2182 


OATA00 


0813 


2183 


OATA10 


081«i 


218i» 


OATA20 


0815 


2185 


OATA30 


0816 


2186 


OATAtt 


0817 


2187 


OATA5 


0818 


2188 


0ATA6 


0819 


2189 


0ATA7 


081A 


2191 


T101 


081B 


2198 


T102 


0822 


2205 


T103 


082A 


2211 


T10*» 


0830 


2217 


T105 


0837 


2223 


T106 


0830 


2229 


T107 


08<»<t 


2237 


T108 


08<iC 


22<»5 


T109 


0855 


2252 


T110 


085C 


2259 


Till 


086*» 


2267 


T112 


086C 


2275 


T113 


0875 


2283 


Tll*» 


0870 


2291 


T115 


0886 


2299 


AORERR 


088F 


2311 


A0RET1 


089C 


2312 


ADRET2 


0890 


2315 


ADERCT 


08AO 


2316 


A0RER2 


08A1 


2322 


AORPCN 


08A9 


2353 


ININT 


8C7 



2322 
2323 
232** 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
233«» 
2335 
2206 
2133 
2278 



L 



, 2336 

♦ 2168, 2175, 2218, 2247, 2262 



tt 225«», 2270, 2286, 2292 
I, 2337 



21«»5, 2182 

21H», 2128, 2161 

211«i, 2128, 2161, 2189, 2200, 2212 

22%0 

222*» 

2180 

2338 

2339 

23<»0 

231*1 

23«»3 
23<»tf 
23«»5 
23<»6 
23«»7 
23«»8 
23V9 
2350 
2351 
2076 
2227 
2273 



, 2196, 2203, 2209, 2215, 2221 
, 2235, 22i»3, 2250, 2257, 2265 
, 2281, 2289, 2295, 2105, 2321 



230«* 

2306 

2073, 2197, 2204, 2210, 2216, 2222 

2228, 2236, ZZkUt 2251, 2258, 2266 

227<t, 2282, 2290, 2296, 2300, 2316 

2309 
2317 
1698, 1896, 207<i, 2359 
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COM001 




2361 


ENINT 


08CE 


2368 


IMTSVM 


08D5 


2380 


INAQH 


08O6 


2393 


INAQ2 


08E5 


2398 


OR 


08E7 


2416 


INTREG 


08EF 


2426 


INTM2 


08F9 


2428 


INTH 


08FB 


2438 


CHMSK 


0902 


2444 


MSKFL 


0908 


2448 


CHHSKA 


0909 


2456 


CHMSK8 


090E 


2467 


STOATA 


0915 


2480 


STOP 


091C 


2493 


STOP1 


092C 


2497 


STOP2 


0930 


2500 


ST0P3 


0932 


2506 


INIT01 


0938 


2524 


HEAOIN 


094C 


2528 


FREQCN 


095F 


2530 


ENOHEA 


096C 


2531 


STORE 


093B 
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AA 


1048 


AAB 


1938 


AA82 


19«»3 


AAB3 


1952 


AAM 


1921 


AAH2 


1925 


AAM3 


1933 


AAQ 


1644 


AAQ2 


1646 


AAQ3 


1653 


AAQH 


1788 


AAQH2 


1791 


AAQH 3 


1798 


AOO 


0977 


AOD10 


1045 


ADOil 


1016 


A0D12 


1002 


A0D2 


1010 


A0D3 


1011 


A004 


1013 


AD05A 


1021 


A0D6 


1023 


AD07 


1024 


A008 


103«» 


A008A 


1037 


AOERCT 


2315 


ADQ ' 


1092 


ADQ2 


1094 


A0Q3 


1102 


ADR 


2080 


AORER2 


2316 


AORFRR 


2299 


ADRET1 


2311 


AORET2 


2312 


ADRPCN 


2322 


AGAIN 


0987 


ALS 


0620 


A NO 


0961 


APEND 


0534 


ARSN 


0721 


ARSN2 


0735 


ARSN«» 


0744 


ARSN5 


072<» 


ARSP 


694 


ARSP2 


0708 


ARSP4 


0717 


ARSP5 


0697 


ATLAST 


1310 


BITO 


0037 


BITOO 


0036 


BIT1 


00 38 


BIT10 


00«»7 


BIT11 


00«»8 


BIT12 


0049 


BIT13 


0050 


BIT14 


0051 


BIT15 


0052 


BIT2 


0039 


BIT3 


0040 


BIT 4 


0041 


8IT5 


0042 


BIT6 


0043 


BIT7 


0044 


9IT8 


0045 


BIT9 


046 


CAB 


2052 


CAB1 


2054 


C«B2 


2059 


CAB3 


2068 


CAH 


2034 


CAM2 


2039 


CAH3 


2047 


CAQ 


1683 


CAQ2 


1686 


CAQ3 


1693 


CAQH 


1833 


CAQM2 


1837 


CAQH3 


1844 


CARR 


1048 


CARRR 


1568 


CARRY 


1256 


CHMSK 


2438 


CHHSK1 


1770 


CHHSK2 


1955 


CHHSK3 


1956 


CHMSKA 


2448 


CHMSKB 


2456 


CKRPT 


0111 


CLR 


1583 


CLR1 


1587 


CLR2 


1592 


CLR3 


1593 


CLRH 


1731 


CLRH1 


1735 


CLRH2 


1740 


CLRND 


0079 


CNT 


0115 


COH001 


008<» 


CON1 


0203 


CON10 


0211 


CON2 


0206 


C0N6 


0204 


C0N7 


0208 


CONST 


0072 


CONTRO 


015 


CONVER 


0076 


COUNT 


1567 


OAH 


0993 


DATAOO 


2182 


OATA10 


2183 


DATA20 


218** 


DATA30 


2185 


OATAlf 


2186 


DATA5 


2187 


0ATA6 


2188 


DATA7 


2189 


OIV 


1368 


OIV1 


1392 


OIV10 


1458 


DIV11 


1421 


DIV12 


1436 


OIV1B 


1387 


DIV2 


1393 


DIV3 


1499 


DIV3H 


1510 


DIV3X 


1511 


BIV3Y 


1514 


DIV3Z 


1508 


0IV4 


1399 


DIV4A 


1517 


OIV<tB 


1520 


0IV5 


1405 


0IV6 


1417 


0IV8 


1407 


DIVB 


1488 


DIVBi 


1498 


BIVB2 


1493 


DIVB3 


1472 


OIVFAU 


1451 


DIVIS 


1455 


DVND1 


1455 


OVN02 


1455 


EAB 


1979 


EAB2 


1984 


EAB3 


1993 


EAH 


1962 


EAM2 


1966 


EAM3 


1974 


EAQ 


1657 


EAQ2 


1659 


EAQ3 


1666 


EAQH 


1803 


EAQH2 


1806 


EAQH3 


1813 


EN4 


0148 


EN5 


0150 


ENA 


0908 


ENA2 


0919 


ENA5 


0921 


ENA7 


927 


ENA8 


0916 


END1 


0433 


EN02 


0581 


EN03 


0746 


EN04 


955 


EN05 


1151 


EN06 


1526 


END7 


1695 


EN08 


1894 


END9 


2072 


ENDAD 


1047 


ENOAL 


0638 


ENOAM 


0973 


ENOOI 


1524 


ENDEA 


0929 


ENOEQ 


0953 


ENOHEA 


2530 


ENOIT 


0172 


ENDLL 


0821 


ENDLR 


0904 


ENOPAS 


0105 


ENDQL 


0690 


ENOSEC 


0135 


ENOSM 


0616 


ENOSN 


0579 


ENOSP 


0500 


ENDSPA 


1566 


ENOSQZ 


0564 


ENINT 


2361 


ENQ 


0933 


ENQ2 


0941 


ENQ3 


0943 


ENQ4 


0942 


ENQ6 


0951 


ENT1 


0128 


ENT2 


0129 


ENT3 


0130 


ENTER1 


0099 


EOR 


1052 


E0R2 


1062 


E0R3 


1063 


E0R4 


1068 


E0R6A 


1080 


E0R7 


1057 


E0R8 


1088 


E0R9 


1067 


EQUIP 


0088 


EXIT 


0017 


FCLRIN 


0019 


FIND 


1450 


FIN02 


1469 


FIND3 


1465 


FINSEC 


0126 


FLG1 


1454 


FLG2 


1454 


FREQCN 


2528 


GENOPS 


0165 


GENRAN 


0021 


HO0O0 


0053 


H000F 


0055 


H007F 


0068 


H0OF0 


0056 


HOOFF 


0059 


H0780 


0067 


H0F00 


0057 


HOFFF 


0062 


H2020 


0069 


H7FO0 


0066 


H7FFF 


0065 


HEADIN 


2524 


HEXASC 


002V 


HFOOO 


0058 


HFOFF 


01164 


HFFOO 


0060 


HFFOF 


0063 


HFFFO 


0061 


HFFFF 


0054 


I 


0000 


IAQM 


1954 


INA 


1106 


INA2 


1114 


INA3 


1113 


INA«» 


1119 


INA5 


1122 


INA6 


1128 


INAQ2 


2393 


INAQM 


2380 


INFORM 


0034 


ININT 


2353 


INIT01 


2506 



c 
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DATEI 


10/20/75 


INQ 


1132 


INQ2 


11*2 


INQ3 


11*1 


INQ* 


11*9 


I NTH 


2*28 


INTM2 


2*26 


INTREG 


2*16 


INTRY 


1769 


INTRZ 


1628 


INTSVH 


2368 


IREG 


0216 


IREGA 


0252 


IREGE 


0318 


IREGE1 


0338 


IREGE2 


0339 


IREGE3 


03*0 


IREGE* 


03*2 


IREGE5 


03*3 


IREGE6 


03*5 


IREGE7 


03** 


IRTCNT 


0131 


ITERAT 


010* 


JMP 


0351 


JMP2 


0355 


JMP3 


362 


JHP* 


0358 


JMP5 


036* 


JUMP 


0020 


LAB 


2015 


LAB2 


2020 


LAB3 


2029 


LAM 


1998 


LAM2 


2002 


LAM3 


2010 


LAQ 


1670 


LAQ2 


1672 


LAQ3 • 


1679 


LAQM 


1818 


LAQM2 


1821 


LAQM3 


1828 


LASTAD 


0031 


LASTVA 


0030 


LOA 


0391 


LDA2 


0*02 


LDL1CO 


0033 


LDLCOR 


0032 


LOQ 


0*20 


LDQ2 


0*31 


LLS 


0778 


LLS2 


078* 


LLS3 


0795 


LLS* 


0815 


LLS*A 


807 


LLS6 


081* 


LRS 


827 


LRS10 


0867 


LRS11 


0872 


LRS12 


0882 


LRS15 


0890 


LRS16 


0896 


LRS2 


08*2 


LRS3 


0853 


LRS* 


08*9 


LRS8 


0860 


LRS9 


0832 


Ml 


1323 


MAINL 


0027 


MESSAG 


0077 


MSKFL 


2*** 


MUI 


1260 


HUH 


1317 


MUI11 


136 


MUI12 


136* 


NUI2 


1332 


MUI3 


1351 


MUI5 


13*7 


NUIEE 


1357 


MULT1 


1322 


MULT2 


1322 


MULT* 


1288 


MUX 


01*5 


Nl 


1326 


NEG 


1325 


NEXTSE 


0179 


OK 


0998 


OP 


0082 


OPEP 


132* 


OR ' 


2398 


OR1 


1958 


OVERF 


1255 


OVGEN 


0168 


OVNO 


1203 


OVNOl 


1213 


0VN02 


1217 


OVNOl 


1207 


OVNO* 


1220 


0VN05 


1225 


OVNOS 


1228 


0VN07 


1235 


OVN08 


1238 


0VN09 


12*1 


OVNOA 


12*7 


OVNOH 


125* 


OVRLAY 


0025 


PARADR 


0086 


PARAM 


0103 


PASSCN 


0110 


POSH 


1*53 


P0SI2 


1*53 


PRMST 


0097 


PRODI 


1321 


PR002 


1321 


QENT2 


0189 


QLS 


0672 


QQ 


10*8 


QUOTi 


1*52 


QU0T2 


1*52 


RANDOM 


0075 


RAO 


1158 


RAOl 


1161 


RA02 


1170 


RA03 


1177 


RELPOS 


0026 


REQINT 


0018 


REQND 


0078 


RETURN 


0087 


RPTCND 


0133 


RSHIF 


0753 


RSHIF1 


0763 


RSHIF2 


076* 


RSHIF3 


0761 


RSHIF* 


075* 


RSHIF7 


077* 


RTJ 


0368 


RTJ3 


0386 


RTJ* 


0370 


RTJ5 


0379 


RTJ7 


0380 


S 


0081 


SAM 


0538 


SAM2 


05** 


SAM3 


05*8 


SAM3A 


05*3 


SAM* 


5*6 


SAMESE 


0180 


SAN 


0*90 


SAN10 


0511 


SAN2 


0*9* 


SAN* 


0*96 


SAN5 


0*99 


SAN6 


0501 


SAN7 


0503 


SANS 


0509 


SANENO 


0513 


SAP 


0517 


SAP11 


0525 


SAP12 


0533 


SAP9 


052* 


SAV 


0387 


SAVIR 


0127 


SAZ 


0*55 


SAZ2A 


0*59 


SAZ3 


0*6* 


SAZ*A 


0*66 


SAZ5 


0*61 


SAZ6 


0*77 


SAZ7 


0*71 


SAZ7A 


0*78 


SAZ7B 


0*83 


SAZ7C 


0*80 


SAZ8 


0*86 


SEC 


0176 


SECAOD 


0195 


SECENO 


0175 


SECPTR 


0196 


SECRTN 


0177 


SET 


1572 


SET1 


157* 


SET2 


1579 


SETM 


1703 


SETHI 


1706 


SETH2 


1711 


SETM3 


1712 


SETMAS 


0028 


SHI 


0659 


SH2 


06** 


SNA 


06*3 


SHIF2A 


1327 


SHQ 


0658 


SJPAR 


07* 


SMHCNT 


0035 


SHMPAR 


0073 


SPA 


1533 


SPA1 


1538 


SPA2 


1536 


SPA3 


1552 


SPA* 


155* 


SPA5A 


156* 


SPA5B 


1561 


SPA7 


15*6 


SPCENO 


0136 


SQN 


060* 


SQM2A 


0613 


SQM3 


0612 


SQN 


0568 


SQN2A 


0576 


SON 3 


0575 


SQP 


0588 


SQP 2 A 


0597 


SQP3 


0596 


SQZ 


0552 


SQZ2A 


0560 


SQZ3 


0559 


ST10 


0*35 


ST11 


0*36 


ST12 


0*37 


ST20 


0583 


ST21 


058* 


ST30 


07*8 


ST31 


07*9 


ST32 


0822 


ST33 


0823 


ST*0 


0957 


ST*1 


0958 


ST50 


1153 


ST51 


115* 


ST60 


1528 


ST61 


1529 


ST62 


1*56 


ST63 


1*57 


ST70 


1697 


ST71 


1698 


ST72 


1699 


STA 


0*06 


STA2 


0*16 


STD 


1957 


STDATA 


2*67 


STJP 


0029 


STOP 


2*80 


STOP1 


2*93 


STOP2 


2*97 


ST0P3 


2500 


STOPX 


0016 


STORE 


2531 


STP1 


0*3* 


STP2 


0582 


STP3 


07*7 


STP* 


0956 


STP5 


1152 


STP6 


1527 


STP7 


1696 


STP8 


1895 


STP81 


1896 


STP82 


1897 


STP 9 


2071 


STP92 


2073 


STP93 


207* 


STP9* 


2075 


STP95 


2076 


STQ 


0**1 


STQ2 


0*51 


SUB 


1187 


SUB2 


1192 


SUB3 


1199 


SUB* 


1190 
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T100 


2173 


T101 


2191 


T102 


2198 


T103 


2205 


T104 


2211 


T105 


2217 


T106 


2223 


T107 


2229 


T108 


2237 


T109 


22*5 


TilO 


2252 


Till 


2259 


T112 


2267 


T113 


2275 


T114 


2283 


T115 


2291 


T86 


2081 


T87 


2092 


T88 


2 097 


T89 


2102 


T90 


2107 


T91 


2113 


T92 


2119 


T93 


2126 


T94 


2133 


T95 


2138 


T96 


211*1* 


T97 


2150 


T98 


2158 


T99 


2166 


TCA 


1619 


TCA2 


1621 


TCA3 


1627 


TCAK 


1758 


TCAM2 


1761 


TCAM3 


1767 


TCB ' 


1901 


TCB1 


1903 


TCB2 


1907 


TCB3 


1915 


TCM 


1880 


TCH2 


1884 


TCM3 


1891 


TCQ 


1632 


TCQ2 


163* 


TCQ3 


1640 


TCQM 


1774 


TC1M2 


1777 


TCQM3 


1783 


TEMPLO 


0080 


THIS 


0991 


TRA 


1597 


TRA2 


1603 


TRAM 


1718 


TRAM2 


1725 


TRB 


1863 


TRB2 


1867 


TRB3 


1875 


TRM 


18li9 


TRM2 


1858 


TRMNTE 


0184 


TRQ 


1607 


TRQ2 


1615 


TRQM 


1745 


TRQH2 


1753 


TSACTV 


0070 


TSFREQ 


0071 


TTYBZV 


0023 


TYPEOU 


0022 


XXX 


1462 
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